Changeset 6497 for trunk/DataStore/t/02_fileset_parse.t

Timestamp:

Feb 24, 2006, 6:48:25 PM (20 years ago)

Author:

jhoblitt

Message:

add DataStore::FileSet::Parser->new( base_uri => ... )
add DataStore::FileSet::Parser->base_uri()
add DataStore::FileSet::Record->uri()

File:

• trunk/DataStore/t/02_fileset_parse.t (modified) (7 diffs)

trunk/DataStore/t/02_fileset_parse.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 02_fileset_parse.t,v 1.3 2006-02-25 00:13:36 jhoblitt Exp $
+# $Id: 02_fileset_parse.t,v 1.4 2006-02-25 04:48:25 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use lib qw( ./lib ./t );
 
-use Test::More tests => 38;
+use Test::More tests => 42;
 use Test::Warn;
 
@@ -114 +114 @@
 otis0123456|2006-01-01T00:03:04Z|object|11:00:10.33 68:26:59.6 2000|30.0 |r|1.23   |
 END
-    my $results = DataStore::FileSet::Parser->new->parse($example1);
+    my $parser  = DataStore::FileSet::Parser->new(
+        base_uri => 'http://foo.com/'
+    );
+    my $results = $parser->parse($example1);
 
     is(scalar @$results, 4, "correct number of item returned");
@@ -122 +125 @@
     is(@$results[0]->datetime, '2006-01-01T00:03:04Z', 'correct datetime');
     is(@$results[0]->type, 'object', 'correct type');
+    is(@$results[0]->uri, 'http://foo.com/otis0123456', 'correct uri');
 
     isa_ok(@$results[1], 'DataStore::FileSet::Record');
@@ -127 +131 @@
     is(@$results[1]->datetime, '2006-01-01T00:03:04Z', 'correct datetime');
     is(@$results[1]->type, 'object', 'correct type');
+    is(@$results[1]->uri, 'http://foo.com/otis0123456', 'correct uri');
 
     isa_ok(@$results[2], 'DataStore::FileSet::Record');
@@ -132 +137 @@
     is(@$results[2]->datetime, '2006-01-01T00:03:04Z', 'correct datetime');
     is(@$results[2]->type, 'object', 'correct type');
+    is(@$results[2]->uri, 'http://foo.com/otis0123456', 'correct uri');
 
     isa_ok(@$results[3], 'DataStore::FileSet::Record');
@@ -137 +143 @@
     is(@$results[3]->datetime, '2006-01-01T00:03:04Z', 'correct datetime');
     is(@$results[3]->type, 'object', 'correct type');
+    is(@$results[3]->uri, 'http://foo.com/otis0123456', 'correct uri');
 }