@@ -35,8 +35,8 @@ isa_ok( $fact, 'Test::Metabase::StringFact' ); ok( my $guid = $archive->store( $fact ), "stored a fact" ); my $fact2 = $archive->extract($guid); -ok ( $fact2->guid, "extracted a fact " ); -is ( $fact2->guid, $fact->guid, "extracted a fact with the same guid" ); +ok ( $fact2->{metadata}{core}{guid}[1], "extracted a fact " ); +is ( $fact2->{metadata}{core}{guid}[1], $fact->guid, "extracted a fact with the same guid" ); ok( $index->add( $fact ), "indexed fact" ); t/index/flatfile.t 5b420125ab7cdea6e0bee381c0a09881884ffcf7 Ricardo SIGNES rjbs@cpan.org http://github.com/rjbs/metabase/commit/fd6d27d802a44d48b37915c8fded7ca8471fabe4 fd6d27d802a44d48b37915c8fded7ca8471fabe4 2009-05-31T19:44:41-07:00 2009-05-31T19:44:41-07:00 expect struct 3d27cdb1d091cf089a0615da9b8cc0fe511e7a27 Ricardo SIGNES rjbs@cpan.org