From d1c4786397a692268e9d47c53af1feea3270b579 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Sat, 26 Feb 2011 02:54:03 +0000
Subject: random checkin, thinks are a bit in flux and about to change greatly
 so I'm checkpinting them

---
 testing/test.pl | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'testing/test.pl')

diff --git a/testing/test.pl b/testing/test.pl
index 3940116..d505758 100755
--- a/testing/test.pl
+++ b/testing/test.pl
@@ -26,14 +26,20 @@ for (1..10) {
     $test->add_input_sequence($_);
     $test->add_delay(0.2);
 }
+$test->add_evaluation_function(sub { 1 }, 'this should succeed');
+$test->add_pattern_match(qr/2345/, 'prompt', 'prompt contains numbers');
 
 #$test->add_input_sequence("This is\x0acursor movement\x0a");
 # $test->add_delay(5);
- $test->add_input_sequence("\n");
+$test->add_input_sequence("\n");
 
- $test->add_input_sequence("/clear\n");
-# $test->add_expected_output("Hello");
+$test->add_input_sequence("/clear\n");
 
 
+my $test2 = $tester->new_test("Test2");
+$test2->add_input_sequence("hello");
+$test2->add_delay(5);
+$test2->add_pattern_match(qr/hello/, 'prompt', 'hello');
+
 
 $tester->run;
-- 
cgit v1.2.3