develooper Front page | perl.php.sandwich.dev | Postings from August 2005

[svn:PHP-Sandwich] r1452 - PHP-Sandwich/trunk/t

Thread Next
From:
gschlossnagle
Date:
August 3, 2005 09:44
Subject:
[svn:PHP-Sandwich] r1452 - PHP-Sandwich/trunk/t
Message ID:
20050803164439.30719.qmail@x1.develooper.com
Author: gschlossnagle
Date: Wed Aug  3 09:44:39 2005
New Revision: 1452

Modified:
   PHP-Sandwich/trunk/t/16.t
Log:
Add test for write access segfault (joao gonclaves)


Modified: PHP-Sandwich/trunk/t/16.t
==============================================================================
--- PHP-Sandwich/trunk/t/16.t	(original)
+++ PHP-Sandwich/trunk/t/16.t	Wed Aug  3 09:44:39 2005
@@ -1,6 +1,6 @@
 #!/opt/ecelerity/3rdParty/bin/perl -w
 use strict;
-use Test::More tests => 6;
+use Test::More tests => 9;
 
 BEGIN {
     diag "Testing passing blessed references into PHP";
@@ -21,6 +21,12 @@ function property_access($obj, $prop)
   return $obj->$prop;
 }
 
+function property_write($obj, $prop, $value)
+{
+  return $obj->$prop = $value;
+}
+
+
 function method_call($obj, $meth)
 {
   return $obj->$meth();
@@ -41,6 +47,9 @@ $foo->{bar} = 'bar';
 $foo->{baz} = 'baz';
 is $p->get_class($foo), 'PerlSV::Foo', 'Checking class name';
 is $p->property_access($foo, 'bar'), 'bar', 'Checking property access';
+ok $p->property_write($foo, 'bar', 'foo'), 'Checking property write access';
+is $p->property_access($foo, 'bar'), 'foo', 'Checking property access';
+ok $p->property_write($foo, 'bar', 'bar'), 'Checking property write access';
 is $p->method_call($foo, 'get'), 'bar', 'Checking method calls';
 is_deeply $p->props_as_array($foo), {'bar' => 'bar', 'baz' => 'baz'}, 'Checking iterators';
 package Foo;

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About