[iperl commit] r139 - in trunk: . t

[codesite...@google.com]

Author: a.r.ferreira
Date: Fri Jul 27 07:32:18 2007
New Revision: 139

Added:
trunk/t/20expect_quit.t
Modified:
trunk/MANIFEST

Log:
new test

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Fri Jul 27 07:32:18 2007
@@ -9,6 +9,7 @@
t/01use.t
t/02basic.t
t/10compile.t
+t/20expect_quit.t
t/50isolated.t
t/90pod.t
t/98pod-coverage.t

Added: trunk/t/20expect_quit.t
==============================================================================
--- (empty file)
+++ trunk/t/20expect_quit.t Fri Jul 27 07:32:18 2007
@@ -0,0 +1,21 @@
+
+use Test::More;
+
+eval "use Test::Expect";
+plan skip_all => "Test::Expect required for testing" if $@;
+
+# test pirl and its many quit commands
+
+plan( tests => 2*6 );
+
+for my $quit_command ( ':quit', ':q', ':exit', ':x', 'exit', 'quit' ) {
+
+ expect_run(
+ command => "$^X -Mblib blib/script/pirl --noornaments",
+ prompt => 'pirl @> ',
+ quit => $quit_command,
+ );
+
+ expect_like(qr/^Welcome/, "welcome message");
+
+}