Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Started the test suite.

  • Loading branch information...
commit 7fe158228eb192d79e6cc291bd7bf6d061306efc 1 parent 0aa08bc
@sodabrew sodabrew authored
Showing with 34 additions and 0 deletions.
  1. +1 −0  Changes
  2. +33 −0 t/test.t
View
1  Changes
@@ -3,6 +3,7 @@ Revision history for Perlite Apache extension.
0.08 Mon Dec 10 19:09:21 2007
- read operations written (but not working).
- restores the working directory.
+ - started the test suite.
0.07 Sun Nov 18 20:20:20 2007
- finally got exit (mostly) working.
View
33 t/test.t
@@ -0,0 +1,33 @@
+
+use Test::More tests => 5;
+
+sub Perlite::IO::_header {
+ my ($header, $value) = @_;
+ system "echo", $header."_: _".$value;
+}
+
+sub Perlite::IO::_write {
+ my ($value) = @_;
+ system "echo", $value;
+}
+
+sub Perlite::_env {
+ return { foo => "bar" }
+}
+
+
+use lib '../lib';
+use_ok( 'Perlite' );
+
+ok print "Hello: this is a header\n";
+
+ok print "\nThis is a body\n";
+ok print "\nThis is a body\n";
+ok print "\n\nNO REALLY A BODY\n";
+
+#ok warn "Warning\n";
+
+#ok die "Dying\n";
+
+ok exit;
+
Please sign in to comment.
Something went wrong with that request. Please try again.