Changeset 9659


Ignore:
Timestamp:
12/13/09 03:02:31 (2 years ago)
Author:
szabgab
Message:

add a quit call to the end of every test script

Location:
trunk/Debug-Client/t
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/Debug-Client/t/02-sub-step_out.t

    r292 r9659  
    44use t::lib::Debugger; 
    55 
    6 my $pid = start_script('t/eg/02-sub.pl'); 
     6my ($dir, $pid) = start_script('t/eg/02-sub.pl'); 
    77 
    88require Test::More; 
    … …  
    7777#   DB<1>  
    7878    my $out = $debugger->step_in; 
    79     like($out, qr/Debugged program terminated/); 
     79    like($out, qr/Debugged program terminated/, 'terminated'); 
    8080} 
     81 
     82{ 
     83    $debugger->quit; 
     84} 

  • trunk/Debug-Client/t/02-sub-step_over.t

    r292 r9659  
    44use t::lib::Debugger; 
    55 
    6 my $pid = start_script('t/eg/02-sub.pl'); 
     6my ($dir, $pid) = start_script('t/eg/02-sub.pl'); 
    77 
    88require Test::More; 
    … …  
    6969    like($out, qr/Debugged program terminated/); 
    7070} 
     71 
     72{ 
     73    $debugger->quit; 
     74} 

  • trunk/Debug-Client/t/02-sub.t

    r292 r9659  
    44use t::lib::Debugger; 
    55 
    6 my $pid = start_script('t/eg/02-sub.pl'); 
     6my ($dir, $pid) = start_script('t/eg/02-sub.pl'); 
    77 
    88require Test::More; 
    … …  
    9797    like($out, qr/Debugged program terminated/); 
    9898} 
     99 
     100{ 
     101    $debugger->quit; 
     102} 

  • trunk/Debug-Client/t/03-return.t

    r292 r9659  
    44use t::lib::Debugger; 
    55 
    6 my $pid = start_script('t/eg/03-return.pl'); 
     6my ($dir, $pid) = start_script('t/eg/03-return.pl'); 
    77 
    88require Test::More; 
    … …  
    104104    like($out, qr/Debugged program terminated/); 
    105105} 
     106 
     107{ 
     108    $debugger->quit; 
     109} 

  • trunk/Debug-Client/t/04-run.t

    r292 r9659  
    55use t::lib::Debugger; 
    66 
    7 my $pid = start_script('t/eg/02-sub.pl'); 
     7my ($dir, $pid) = start_script('t/eg/02-sub.pl'); 
    88 
    99require Test::More; 
    … …  
    4545    like($out, qr/Debugged program terminated/); 
    4646} 
     47 
     48{ 
     49    $debugger->quit; 
     50} 

  • trunk/Debug-Client/t/04-run_to_line.t

    r292 r9659  
    55use t::lib::Debugger; 
    66 
    7 my $pid = start_script('t/eg/02-sub.pl'); 
     7my ($dir, $pid) = start_script('t/eg/02-sub.pl'); 
    88 
    99require Test::More; 
    … …  
    5353    like($out, qr/Debugged program terminated/); 
    5454} 
     55 
     56{ 
     57    $debugger->quit; 
     58} 

  • trunk/Debug-Client/t/04-run_to_sub.t

    r292 r9659  
    5353    like($out, qr/Debugged program terminated/); 
    5454} 
     55 
     56{ 
     57    $debugger->quit; 
     58} 

  • trunk/Debug-Client/t/05-execute.t

    r292 r9659  
    44use t::lib::Debugger; 
    55 
    6 my $pid = start_script('t/eg/02-sub.pl'); 
     6my ($dir, $pid) = start_script('t/eg/02-sub.pl'); 
    77 
    88require Test::More; 
    … …  
    8686    like($out, qr/Debugged program terminated/); 
    8787} 
     88 
     89{ 
     90    $debugger->quit; 
     91} 

  • trunk/Debug-Client/t/06-breakpoint.t

    r292 r9659  
    44use t::lib::Debugger; 
    55 
    6 my $pid = start_script('t/eg/03-return.pl'); 
     6my ($dir, $pid) = start_script('t/eg/03-return.pl'); 
    77 
    88require Test::More; 
    … …  
    5858    like($out, qr/Debugged program terminated/); 
    5959} 
     60 
     61{ 
     62    $debugger->quit; 
     63} 

  • trunk/Debug-Client/t/07-quit.t

    r300 r9659  
    44use t::lib::Debugger; 
    55 
    6 my $pid = start_script('t/eg/03-return.pl'); 
     6my ($dir, $pid) = start_script('t/eg/03-return.pl'); 
    77 
    88require Test::More; 
    … …  
    4141} 
    4242# TODO add something that checks the debugger really exited. 
    43  

  • trunk/Debug-Client/t/08-recursive.t

    r300 r9659  
    44use t::lib::Debugger; 
    55 
    6 my $pid = start_script('t/eg/04-fib.pl'); 
     6my ($dir, $pid) = start_script('t/eg/04-fib.pl'); 
    77 
    88require Test::More; 
    … …  
    7373        or diag($debugger->buffer); 
    7474} 
     75 
     76{ 
     77    $debugger->quit; 
     78} 
Note: See TracChangeset for help on using the changeset viewer.