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

Timestamp:

Feb 27, 2006, 5:03:34 PM (20 years ago)

Author:

jhoblitt

Message:

add DataStore::Record->new()
move DataStore::Record::File out of DataStore::Record and rename it to DataStore::File
move DataStore::Record::FileSet out of DataStore::Record and rename it to DataStore::FileSet
add DataStore::Product
improve DataStore::Record:... constructor uri param validation (trailing slash vs. no trailing slash)

File:

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

trunk/DataStore/t/02_fileset_parse.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 02_fileset_parse.t,v 1.4 2006-02-25 04:48:25 jhoblitt Exp $
+# $Id: 02_fileset_parse.t,v 1.5 2006-02-28 03:02:12 jhoblitt Exp $
 
 use strict;
@@ -121 +121 @@
     is(scalar @$results, 4, "correct number of item returned");
 
-    isa_ok(@$results[0], 'DataStore::FileSet::Record');
+    isa_ok(@$results[0], 'DataStore::FileSet');
     is(@$results[0]->fileset, 'otis0123456', 'correct fileset');
     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');
+    is(@$results[0]->uri, 'http://foo.com/otis0123456/', 'correct uri');
 
-    isa_ok(@$results[1], 'DataStore::FileSet::Record');
+    isa_ok(@$results[1], 'DataStore::FileSet');
     is(@$results[1]->fileset, 'otis0123456', 'correct fileset');
     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');
+    is(@$results[1]->uri, 'http://foo.com/otis0123456/', 'correct uri');
 
-    isa_ok(@$results[2], 'DataStore::FileSet::Record');
+    isa_ok(@$results[2], 'DataStore::FileSet');
     is(@$results[2]->fileset, 'otis0123456', 'correct fileset');
     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');
+    is(@$results[2]->uri, 'http://foo.com/otis0123456/', 'correct uri');
 
-    isa_ok(@$results[3], 'DataStore::FileSet::Record');
+    isa_ok(@$results[3], 'DataStore::FileSet');
     is(@$results[3]->fileset, 'otis0123456', 'correct fileset');
     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');
+    is(@$results[3]->uri, 'http://foo.com/otis0123456/', 'correct uri');
 }
 
@@ -164 +164 @@
     is(scalar @$results, 1, "correct number of item returned");
 
-    isa_ok(@$results[0], 'DataStore::FileSet::Record');
+    isa_ok(@$results[0], 'DataStore::FileSet');
     is(@$results[0]->fileset, 'otis0123456', 'correct fileset');
     is(@$results[0]->datetime, '2006-01-01T00:03:04Z', 'correct datetime');