[protobuf-perl commit] r159 - trunk/perl/t

[codesite...@google.com]

Author: nothi...@woobling.org
Date: Fri Aug 1 13:30:05 2008
New Revision: 159

Modified:
trunk/perl/t/memcache-service.t

Log:
fix can_ok meta test

Modified: trunk/perl/t/memcache-service.t
==============================================================================
--- trunk/perl/t/memcache-service.t (original)
+++ trunk/perl/t/memcache-service.t Fri Aug 1 13:30:05 2008
@@ -21,7 +21,11 @@
isa_ok( $meta, "Class::MOP::Class" );
isa_ok( $meta, "Protobuf::Meta::Message" );
isa_ok( $meta->descriptor, "Protobuf::Descriptor" );
- ok( AppEngine::Service::MemcacheGetRequest->can("meta"), "'meta'
method not injected" );
+
+ {
+ local $TODO = "Missing feature in Class::MOP::Class";
+
ok( !AppEngine::Service::MemcacheGetRequest->can("meta"), "'meta'
method not injected" );
+ }
}

# build up a get request