citrun

commit dee18ccb072d28edcb8edd499f318b150330565b
parent 63ae70829d1b2a0fdbe512e06dc6fc477c291285
Author: Kyle Milz <kyle@0x30.net>
Date:   Sun, 31 Jul 2016 19:25:27 -0600

t: add first citrun-term test

Diffstat:
A
t/term_basic.t
 | 
27
+++++++++++++++++++++++++++

1 file changed, 27 insertions(+), 0 deletions(-)
diff --git a/t/term_basic.t b/t/term_basic.t
@@ -0,0 +1,27 @@
+use strict;
+use Expect;
+use Test::More tests => 1;
+use Test::Project;
+
+my $project = Test::Project->new();
+$ENV{CITRUN_SOCKET} = $project->tmpdir() . "/test.socket";
+
+$project->add_src(<<EOF);
+int
+main(void)
+{
+	while (1);
+	return 0;
+}
+EOF
+$project->compile();
+
+my $exp = Expect->spawn("src/citrun-term");
+my $waiting = "Waiting for connection on $ENV{CITRUN_SOCKET}";
+ok(1) if (defined $exp->expect(undef, ($waiting)));
+
+$project->run();
+$exp->expect(undef, ("program"));
+
+$project->kill();
+$project->wait();