[srvx-commits] CVS: services/tests test-driver.pl,1.3,1.4

[Entrope <en...@us...>]

Update of /cvsroot/srvx/services/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv10098/tests

Modified Files:
	test-driver.pl 
Log Message:
show interruption point in case the script gets stopped midway


Index: test-driver.pl
===================================================================
RCS file: /cvsroot/srvx/services/tests/test-driver.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** test-driver.pl	26 Sep 2003 22:04:12 -0000	1.3
--- test-driver.pl	7 Oct 2003 03:40:58 -0000	1.4
***************
*** 36,40 ****
                        _start => \&drv_start,
                        _child => sub {},
!                       _stop => sub { print "\nThat's all, folks!\n"; },
                        _default => \&drv_default,
                        # generic utilities or miscellaneous functions
--- 36,46 ----
                        _start => \&drv_start,
                        _child => sub {},
!                       _stop => sub {
!                         my $heap = $_[HEAP];
!                         print "\nThat's all, folks!";
!                         print "(exiting at line $heap->{lineno}: $heap->{line})"
!                           if $heap->{line};
!                         print "\n";
!                       },
                        _default => \&drv_default,
                        # generic utilities or miscellaneous functions