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

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;