t/dh-lib

   1 #!/usr/bin/perl
   2 package Debian::Debhelper::Dh_Lib::Test;
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6
   7 plan(tests => 10);
   8
   9 use_ok('Debian::Debhelper::Dh_Lib');
  10
  11 sub ok_autoscript_result {
  12         ok(-f 'debian/testpackage.postinst.debhelper');
  13         open(F, 'debian/testpackage.postinst.debhelper') or die;
  14         my (@c) = <F>;
  15         close(F) or die;
  16         like(join('',@c), qr{update-rc\.d test-script test parms with"quote >/dev/null});
  17 }
  18
  19 ok(unlink('debian/testpackage.postinst.debhelper') >= 0);
  20
  21 ok(autoscript('testpackage', 'postinst', 'postinst-init',
  22               's/#SCRIPT#/test-script/g; s/#INITPARMS#/test parms with\\"quote/g'));
  23 ok_autoscript_result;
  24
  25 ok(unlink('debian/testpackage.postinst.debhelper') >= 0);
  26
  27 ok(autoscript('testpackage', 'postinst', 'postinst-init',
  28               sub { s/#SCRIPT#/test-script/g; s/#INITPARMS#/test parms with"quote/g } ));
  29 ok_autoscript_result;
  30
  31 ok(unlink('debian/testpackage.postinst.debhelper') >= 0);