citrun

watch C/C++ source code execute
Log | Files | Refs | LICENSE

term_basic.t (409B)

      1 use Modern::Perl;
      2 use Test::More skip_all => "citrun_term not compiled";
      3 use Expect;
      4 use test::project;
      5 
      6 my $project = test::project->new();
      7 
      8 my $exp = Expect->spawn("citrun_term");
      9 my $waiting = "Waiting for connection on $ENV{CITRUN_SOCKET}";
     10 ok(1) if (defined $exp->expect(undef, ($waiting)));
     11 
     12 $project->run(45);
     13 $exp->expect(undef, ("program"));
     14 
     15 $project->kill();
     16 $project->wait();
     17 
     18 $exp->soft_close();