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

Author: gschlossnagle
Date: Fri Jul 29 19:33:36 2005
New Revision: 1429

Modified:
   PHP-Sandwich/trunk/t/test_perl_classes.t
Log:
I think this is the way the test should look.



Modified: PHP-Sandwich/trunk/t/test_perl_classes.t
==============================================================================
--- PHP-Sandwich/trunk/t/test_perl_classes.t	(original)
+++ PHP-Sandwich/trunk/t/test_perl_classes.t	Fri Jul 29 19:33:36 2005
@@ -26,7 +26,7 @@ ok my $ret = $php->eval(q/
     $file = $perl->call('file');
     $fh = $perl->eval("IO::File->new(\"<$file\")");
     if ($fh) {
-        return $perl->call($fh);
+        return $fh->getline();
     } else {
          throw new Error("Could not open $file");
     }