[svn:PHP-Sandwich] rev 981 - PHP-Sandwich/trunk/t

Author: gschlossnagle
Date: Thu Apr 14 11:32:08 2005
New Revision: 981

Modified:
   PHP-Sandwich/trunk/t/2.pl
Log:
testify

Modified: PHP-Sandwich/trunk/t/2.pl
==============================================================================
--- PHP-Sandwich/trunk/t/2.pl	(original)
+++ PHP-Sandwich/trunk/t/2.pl	Thu Apr 14 11:32:08 2005
@@ -1,13 +1,15 @@
 #!/opt/ecelerity/3rdParty/bin/perl 
-use PHP;
-use PHP::Interpreter;
+use strict;
+use Test;
 
-$p = new PHP::Interpreter();
-$p->eval('function hello($a) { return "hello $a\n"; }');
-$arg = $p->hello('george');
-use Data::Dumper;
+BEGIN { plan tests => 1 }
 
-print "REF: ".ref($arg);
-print Dumper $arg;
+use PHP;
+use PHP::Interpreter;
 
+print "# Testing basic function autoloadind\n";
+my $p = new PHP::Interpreter();
+$p->eval('function hello($a) { return "hello $a"; }');
+my $arg = $p->hello('george');
 
+ok($arg eq 'hello george');