FAQ

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

Gschlossnagle
Aug 3, 2005 at 4:44 pm
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;
reply

Search Discussions

1 response

  • João Pedro Gonçalves at Aug 3, 2005 at 4:45 pm
    Works great, thanks!

    João Pedro Gonçalves
    SAPO
    On Aug 3, 2005, at 17:44, gschlossnagle@cvs.perl.org wrote:

    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;

Related Discussions

Discussion Navigation
viewthread | post