gnome-perl-introspection r43 - trunk/Glib-Object-Introspection/t

[tsch svn gnome org]

Author: tsch
Date: Sun Nov  9 14:30:26 2008
New Revision: 43
URL: http://svn.gnome.org/viewvc/gnome-perl-introspection?rev=43&view=rev

Log:
Adapt test suite to the various API and semantic changes.


Removed:
   trunk/Glib-Object-Introspection/t/test.idl
   trunk/Glib-Object-Introspection/t/test.raw
Modified:
   trunk/Glib-Object-Introspection/t/IdlArgInfo.t
   trunk/Glib-Object-Introspection/t/IdlBaseInfo.t
   trunk/Glib-Object-Introspection/t/IdlCallableInfo.t
   trunk/Glib-Object-Introspection/t/IdlConstantInfo.t
   trunk/Glib-Object-Introspection/t/IdlEnumInfo.t
   trunk/Glib-Object-Introspection/t/IdlErrorDomainInfo.t
   trunk/Glib-Object-Introspection/t/IdlFieldInfo.t
   trunk/Glib-Object-Introspection/t/IdlFunctionInfo.t
   trunk/Glib-Object-Introspection/t/IdlInterfaceInfo.t
   trunk/Glib-Object-Introspection/t/IdlObjectInfo.t
   trunk/Glib-Object-Introspection/t/IdlPropertyInfo.t
   trunk/Glib-Object-Introspection/t/IdlRegisteredTypeInfo.t
   trunk/Glib-Object-Introspection/t/IdlRepository.t
   trunk/Glib-Object-Introspection/t/IdlSignalInfo.t
   trunk/Glib-Object-Introspection/t/IdlStructInfo.t
   trunk/Glib-Object-Introspection/t/IdlTypeInfo.t
   trunk/Glib-Object-Introspection/t/IdlVFuncInfo.t
   trunk/Glib-Object-Introspection/t/IdlValueInfo.t
   trunk/Glib-Object-Introspection/t/create-repository.inc

Modified: trunk/Glib-Object-Introspection/t/IdlArgInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlArgInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlArgInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,8 +9,8 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $interface = $repository -> find_by_name("Foo", "Iface1");
-my $method = $interface -> find_method("method1");
+my $interface = $repository -> find_by_name("GObject", "Value");
+my $method = $interface -> find_method("set_boxed");
 
 my $arg = ($method -> get_args())[0];
 isa_ok($arg, "Glib::Object::Introspection::ArgInfo");

Modified: trunk/Glib-Object-Introspection/t/IdlBaseInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlBaseInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlBaseInfo.t	Sun Nov  9 14:30:26 2008
@@ -2,16 +2,20 @@
 use strict;
 use warnings;
 use Glib::Object::Introspection;
-use Test::More tests => 5;
+use Test::More tests => 6;
 
 # $Id: IdlBaseInfo.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $info = $repository -> find_by_name("Foo", "Iface1");
-is($info -> get_name(), "Iface1");
-is($info -> get_namespace(), "Foo");
+my $info = $repository -> find_by_name("GObject", "Value");
+isa_ok($info, "Glib::Object::Introspection::BaseInfo");
+
+is($info -> get_name(), "Value");
+is($info -> get_namespace(), "GObject");
 ok(!$info -> is_deprecated());
-is($info -> get_annotation("Foo.Iface1"), undef);
-isa_ok($info -> get_container(), "Glib::Object::Introspection::InterfaceInfo");
+is($info -> get_annotation("FIXME"), undef);
+
+my $method = $info -> find_method("set_boxed");
+isa_ok($method -> get_container(), "Glib::Object::Introspection::BaseInfo");

Modified: trunk/Glib-Object-Introspection/t/IdlCallableInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlCallableInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlCallableInfo.t	Sun Nov  9 14:30:26 2008
@@ -2,25 +2,23 @@
 use strict;
 use warnings;
 use Glib::Object::Introspection;
-use Test::More tests => 6;
+use Test::More tests => 7;
 
 # $Id: IdlCallableInfo.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $interface = $repository -> find_by_name("Foo", "Iface1");
+my $interface = $repository -> find_by_name("GObject", "Value");
 
-my $callable = $interface -> find_method("method1");
-isa_ok($callable, "Glib::Object::Introspection::CallableInfo");
-
-isa_ok($callable -> get_return_type(), "Glib::Object::Introspection::TypeInfo");
-ok($callable -> get_caller_owns());
-ok($callable -> may_return_null());
-
-my @args = $callable -> get_args();
-TODO: {
-  local $TODO = "FIXME: get_n_args seems to be broken";
-  is(@args, 1);
-}
+my $getter = $interface -> find_method("get_boxed");
+isa_ok($getter, "Glib::Object::Introspection::CallableInfo");
+isa_ok($getter -> get_return_type(), "Glib::Object::Introspection::TypeInfo");
+ok($getter -> get_caller_owns());
+ok(!$getter -> may_return_null());
+
+my $setter = $interface -> find_method("set_boxed");
+isa_ok($setter, "Glib::Object::Introspection::CallableInfo");
+my @args = $setter -> get_args();
+is(scalar @args, 1);
 isa_ok($args[0], "Glib::Object::Introspection::ArgInfo");

Modified: trunk/Glib-Object-Introspection/t/IdlConstantInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlConstantInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlConstantInfo.t	Sun Nov  9 14:30:26 2008
@@ -2,16 +2,13 @@
 use strict;
 use warnings;
 use Glib::Object::Introspection;
-use Test::More tests => 3;
+use Test::More tests => 2;
 
 # $Id: IdlConstantInfo.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $interface = $repository -> find_by_name("Foo", "Iface1");
-
-my @constants = $interface -> get_constants();
-is(@constants, 1);
-isa_ok($constants[0], "Glib::Object::Introspection::ConstantInfo");
-isa_ok($constants[0] -> get_type(), "Glib::Object::Introspection::TypeInfo");
+my $constant = $repository -> find_by_name("GObject", "PARAM_READWRITE");
+isa_ok($constant, "Glib::Object::Introspection::ConstantInfo");
+isa_ok($constant -> get_type(), "Glib::Object::Introspection::TypeInfo");

Modified: trunk/Glib-Object-Introspection/t/IdlEnumInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlEnumInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlEnumInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,9 +9,9 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $enum = $repository -> find_by_name("Foo", "Enum1");
+my $enum = $repository -> find_by_name("GObject", "TypeDebugFlags");
 isa_ok($enum, "Glib::Object::Introspection::EnumInfo");
 
 my @values = $enum -> get_values();
-is(@values, 3);
+is(scalar @values, 4);
 isa_ok($values[0], "Glib::Object::Introspection::ValueInfo");

Modified: trunk/Glib-Object-Introspection/t/IdlErrorDomainInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlErrorDomainInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlErrorDomainInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,7 +9,11 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $domain = $repository -> find_by_name("Foo", "Errors1");
-isa_ok($domain, "Glib::Object::Introspection::ErrorDomainInfo");
-is($domain -> get_quark(), "foo_errors1_get_quark");
-isa_ok($domain -> get_codes(), "Glib::Object::Introspection::InterfaceInfo");
+SKIP: {
+  skip 'there is no error domain to test against', 3;
+
+  my $domain = $repository -> find_by_name("Foo", "Errors1");
+  isa_ok($domain, "Glib::Object::Introspection::ErrorDomainInfo");
+  is($domain -> get_quark(), "foo_errors1_get_quark");
+  isa_ok($domain -> get_codes(), "Glib::Object::Introspection::InterfaceInfo");
+}

Modified: trunk/Glib-Object-Introspection/t/IdlFieldInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlFieldInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlFieldInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,10 +9,10 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $struct = $repository -> find_by_name("Foo", "Struct1");
+my $struct = $repository -> find_by_name("GObject", "Value");
 
 my @fields = $struct -> get_fields();
-is(@fields, 2);
+is(scalar @fields, 2);
 isa_ok($fields[0], "Glib::Object::Introspection::FieldInfo");
 ok($fields[0] -> get_flags() >= [qw(readable writable)]);
 is($fields[0] -> get_size(), 0);

Modified: trunk/Glib-Object-Introspection/t/IdlFunctionInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlFunctionInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlFunctionInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,9 +9,9 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $function = $repository -> find_by_name("Foo", "test1");
+my $function = $repository -> find_by_name("GObject", "strdup_value_contents");
 isa_ok($function, "Glib::Object::Introspection::FunctionInfo");
-is($function -> get_symbol(), "test1");
+is($function -> get_symbol(), "g_strdup_value_contents");
 ok($function -> get_flags() == []);
 
 SKIP: {

Modified: trunk/Glib-Object-Introspection/t/IdlInterfaceInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlInterfaceInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlInterfaceInfo.t	Sun Nov  9 14:30:26 2008
@@ -2,37 +2,33 @@
 use strict;
 use warnings;
 use Glib::Object::Introspection;
-use Test::More tests => 14;
+use Test::More tests => 9;
 
 # $Id: IdlInterfaceInfo.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $interface = $repository -> find_by_name("Foo", "Iface1");
+my $interface = $repository -> find_by_name("GObject", "TypePlugin");
 isa_ok($interface, "Glib::Object::Introspection::InterfaceInfo");
 
 my @prerequisites = $interface -> get_prerequisites();
-is(@prerequisites, 1);
-isa_ok($prerequisites[0], "Glib::Object::Introspection::InterfaceInfo");
+is(scalar @prerequisites, 0);
 
 my @properties = $interface -> get_properties();
-is(@properties, 1);
-isa_ok($properties[0], "Glib::Object::Introspection::PropertyInfo");
+is(scalar @properties, 0);
 
 my @methods = $interface -> get_methods();
-is(@methods, 1);
+is(scalar @methods, 4);
 isa_ok($methods[0], "Glib::Object::Introspection::FunctionInfo");
-isa_ok($interface -> find_method("method1"), "Glib::Object::Introspection::FunctionInfo");
+isa_ok($interface -> find_method("use"),
+       "Glib::Object::Introspection::FunctionInfo");
 
 my @signals = $interface -> get_signals();
-is(@signals, 2);
-isa_ok($signals[0], "Glib::Object::Introspection::SignalInfo");
+is(scalar @signals, 0);
 
 my @vfuncs = $interface -> get_vfuncs();
-is(@vfuncs, 1);
-isa_ok($vfuncs[0], "Glib::Object::Introspection::VFuncInfo");
+is(scalar @vfuncs, 0);
 
 my @constants = $interface -> get_constants();
-is(@constants, 1);
-isa_ok($constants[0], "Glib::Object::Introspection::ConstantInfo");
+is(scalar @constants, 0);

Modified: trunk/Glib-Object-Introspection/t/IdlObjectInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlObjectInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlObjectInfo.t	Sun Nov  9 14:30:26 2008
@@ -2,42 +2,39 @@
 use strict;
 use warnings;
 use Glib::Object::Introspection;
-use Test::More tests => 17;
+use Test::More tests => 13;
 
 # $Id: IdlObjectInfo.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $object = $repository -> find_by_name("Foo", "Object1");
+my $object = $repository -> find_by_name("GObject", "TypeModule");
 isa_ok($object, "Glib::Object::Introspection::ObjectInfo");
 isa_ok($object -> get_parent(), "Glib::Object::Introspection::ObjectInfo");
 
 my @interfaces = $object -> get_interfaces();
-is(@interfaces, 1);
+is(scalar @interfaces, 1);
 isa_ok($interfaces[0], "Glib::Object::Introspection::InterfaceInfo");
 
 my @fields = $object -> get_fields();
-is(@fields, 1);
+is(scalar @fields, 5);
 isa_ok($fields[0], "Glib::Object::Introspection::FieldInfo");
 
 my @properties = $object -> get_properties();
-is(@properties, 1);
-isa_ok($properties[0], "Glib::Object::Introspection::PropertyInfo");
+is(scalar @properties, 0);
 
 my @methods = $object -> get_methods();
-is(@methods, 1);
+is(scalar @methods, 7);
 isa_ok($methods[0], "Glib::Object::Introspection::FunctionInfo");
-isa_ok($object -> find_method("method1"), "Glib::Object::Introspection::FunctionInfo");
+isa_ok($object -> find_method("use"),
+       "Glib::Object::Introspection::FunctionInfo");
 
 my @signals = $object -> get_signals();
-is(@signals, 2);
-isa_ok($signals[0], "Glib::Object::Introspection::SignalInfo");
+is(scalar @signals, 0);
 
 my @vfuncs = $object -> get_vfuncs();
-is(@vfuncs, 1);
-isa_ok($vfuncs[0], "Glib::Object::Introspection::VFuncInfo");
+is(scalar @vfuncs, 0);
 
 my @constants = $object -> get_constants();
-is(@constants, 1);
-isa_ok($constants[0], "Glib::Object::Introspection::ConstantInfo");
+is(scalar @constants, 0);

Modified: trunk/Glib-Object-Introspection/t/IdlPropertyInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlPropertyInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlPropertyInfo.t	Sun Nov  9 14:30:26 2008
@@ -2,16 +2,19 @@
 use strict;
 use warnings;
 use Glib::Object::Introspection;
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 # $Id: IdlPropertyInfo.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $object = $repository -> find_by_name("Foo", "Object1");
+my $object = $repository -> find_by_name("Gio", "BufferedInputStream");
 
-my $property = $object -> get_properties();
+my @properties = $object -> get_properties();
+is(scalar @properties, 1);
+
+my $property = $properties[0];
 isa_ok($property, "Glib::Object::Introspection::PropertyInfo");
-ok($property -> get_flags() == []);
+ok($property -> get_flags() >= [qw/writable construct/]);
 isa_ok($property -> get_type(), "Glib::Object::Introspection::TypeInfo");

Modified: trunk/Glib-Object-Introspection/t/IdlRegisteredTypeInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlRegisteredTypeInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlRegisteredTypeInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,7 +9,7 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $type = $repository -> find_by_name("Foo", "Object1");
+my $type = $repository -> find_by_name("GObject", "Value");
 isa_ok($type, "Glib::Object::Introspection::RegisteredTypeInfo");
-is($type -> get_type_name(), "Object1");
-is($type -> get_type_init(), "object1_get_type");
+is($type -> get_type_name(), "GValue");
+is($type -> get_type_init(), "g_value_get_type");

Modified: trunk/Glib-Object-Introspection/t/IdlRepository.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlRepository.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlRepository.t	Sun Nov  9 14:30:26 2008
@@ -6,20 +6,16 @@
 
 # $Id: IdlRepository.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
-my $repository = Glib::Object::Introspection::Repository -> get_default();
+require 't/create-repository.inc';
+my $repository = create_repository();
 isa_ok($repository, "Glib::Object::Introspection::Repository");
 isa_ok($repository, "Glib::Object");
 
-my $metadata = Glib::Object::Introspection::Metadata -> new_from_memory(join "", `cat t/test.raw`);
-$repository -> register($metadata);
-
-my $info = $repository -> find_by_name("Foo", "Enum1");
+my $info = $repository -> find_by_name("GObject", "Value");
 isa_ok($info, "Glib::Object::Introspection::BaseInfo");
 
-is_deeply([$repository -> get_namespaces()], ["Foo"]);
+is_deeply([$repository -> get_loaded_namespaces()], [qw/Gio GLib GObject/]);
 
-my @infos = $repository -> get_infos("Foo");
-is(@infos, 9);
+my @infos = $repository -> get_infos("GObject");
+is(@infos, 290);
 isa_ok($infos[0], "Glib::Object::Introspection::BaseInfo");
-
-$repository -> unregister($repository->get_namespaces());

Modified: trunk/Glib-Object-Introspection/t/IdlSignalInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlSignalInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlSignalInfo.t	Sun Nov  9 14:30:26 2008
@@ -2,16 +2,18 @@
 use strict;
 use warnings;
 use Glib::Object::Introspection;
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 # $Id: IdlSignalInfo.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $object = $repository -> find_by_name("Foo", "Object1");
-my $signal = $object -> get_signals();
+my $object = $repository -> find_by_name("GObject", "Object");
+my @signals = $object -> get_signals();
+is(scalar @signals, 1);
 
-ok($signal -> get_flags() >= [qw(run-first no-recurse detailed action no-hooks)]);
+my $signal = $signals[0];
+ok($signal -> get_flags() >= [qw(run-last)]);
 is($signal -> get_class_closure(), undef);
 ok(!$signal -> true_stops_emit());

Modified: trunk/Glib-Object-Introspection/t/IdlStructInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlStructInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlStructInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,7 +9,7 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $struct = $repository -> find_by_name("Foo", "Struct1");
+my $struct = $repository -> find_by_name("GObject", "Value");
 isa_ok($struct, "Glib::Object::Introspection::StructInfo");
 
 my @fields = $struct -> get_fields();
@@ -17,6 +17,7 @@
 isa_ok($fields[0], "Glib::Object::Introspection::FieldInfo");
 
 my @methods = $struct -> get_methods();
-is(@methods, 1);
+is(@methods, 60);
 isa_ok($methods[0], "Glib::Object::Introspection::FunctionInfo");
-isa_ok($struct -> find_method("method1"), "Glib::Object::Introspection::FunctionInfo");
+isa_ok($struct -> find_method("set_boxed"),
+       "Glib::Object::Introspection::FunctionInfo");

Modified: trunk/Glib-Object-Introspection/t/IdlTypeInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlTypeInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlTypeInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,15 +9,15 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $function = $repository -> find_by_name("Foo", "test1");
+my $function = $repository -> find_by_name("GObject", "param_spec_pool_list_owned");
 my $arg = ($function -> get_args())[0];
 my $type = $arg -> get_type();
 
 ok($type -> is_pointer());
-is($type -> get_tag(), "array");
-isa_ok($type -> get_param_type(0), "Glib::Object::Introspection::TypeInfo");
-is($type -> get_array_length(), 1);
-ok($type -> is_zero_terminated());
+is($type -> get_tag(), "interface");
+is($type -> get_param_type(0), undef); # FIXME
+is($type -> get_array_length(), -1);
+ok(!$type -> is_zero_terminated());
 
-is($type -> get_interface(), undef);
+isa_ok($type -> get_interface(), 'Glib::Object::Introspection::BaseInfo');
 is($type -> get_error_domains(), undef);

Modified: trunk/Glib-Object-Introspection/t/IdlVFuncInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlVFuncInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlVFuncInfo.t	Sun Nov  9 14:30:26 2008
@@ -9,9 +9,12 @@
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $object = $repository -> find_by_name("Foo", "Object1");
-my $vfunc = $object -> get_vfuncs();
+SKIP: {
+  skip 'there is no vfunc to test against', 3;
 
-ok($vfunc -> get_flags() == []);
-is($vfunc -> get_offset(), 0);
-is($vfunc -> get_signal(), undef);
+  my $object = $repository -> find_by_name("Foo", "Object1");
+  my $vfunc = $object -> get_vfuncs();
+  ok($vfunc -> get_flags() == []);
+  is($vfunc -> get_offset(), 0);
+  is($vfunc -> get_signal(), undef);
+}

Modified: trunk/Glib-Object-Introspection/t/IdlValueInfo.t
==============================================================================
--- trunk/Glib-Object-Introspection/t/IdlValueInfo.t	(original)
+++ trunk/Glib-Object-Introspection/t/IdlValueInfo.t	Sun Nov  9 14:30:26 2008
@@ -2,14 +2,14 @@
 use strict;
 use warnings;
 use Glib::Object::Introspection;
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 # $Id: IdlValueInfo.t,v 1.1.1.1 2005/08/21 14:39:45 torsten Exp $
 
 require 't/create-repository.inc';
 my $repository = create_repository();
 
-my $enum = $repository -> find_by_name("Foo", "Enum1");
-my $value = $enum -> get_values();
-
-is($value -> get_value(), 2);
+my $enum = $repository -> find_by_name("GObject", "TypeDebugFlags");
+my @values = $enum -> get_values();
+is(scalar @values, 4);
+is($values[0] -> get_value(), 0);

Modified: trunk/Glib-Object-Introspection/t/create-repository.inc
==============================================================================
--- trunk/Glib-Object-Introspection/t/create-repository.inc	(original)
+++ trunk/Glib-Object-Introspection/t/create-repository.inc	Sun Nov  9 14:30:26 2008
@@ -1,9 +1,8 @@
 sub create_repository {
-  my $metadata = Glib::Object::Introspection::Metadata -> new_from_memory(join "", `cat t/test.raw`);
   my $repository = Glib::Object::Introspection::Repository -> get_default();
-  $repository -> register($metadata);
+  $repository -> require('GObject', '2.0', []);
+  $repository -> require('Gio', '2.0', []);
   return $repository;
 }
 
 1;
-