Changeset 6501 for trunk/DataStore/t/03_file_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/03_file_parse.t (modified) (6 diffs)

trunk/DataStore/t/03_file_parse.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 03_file_parse.t,v 1.2 2006-02-25 00:13:36 jhoblitt Exp $
+# $Id: 03_file_parse.t,v 1.3 2006-02-28 03:02:12 jhoblitt Exp $
 
 use strict;
@@ -132 +132 @@
     is(scalar @$results, 4, "correct number of item returned");
 
-    isa_ok(@$results[0], 'DataStore::File::Record');
+    isa_ok(@$results[0], 'DataStore::File');
     is(@$results[0]->fileid, 'otis0123456.01', 'correct fileid');
     is(@$results[0]->bytes, '83002312', 'correct datetime');
@@ -138 +138 @@
     is(@$results[0]->type, 'chip', 'correct type');
 
-    isa_ok(@$results[1], 'DataStore::File::Record');
+    isa_ok(@$results[1], 'DataStore::File');
     is(@$results[1]->fileid, 'otis0123456.02', 'correct fileid');
     is(@$results[1]->bytes, '83002312', 'correct datetime');
@@ -144 +144 @@
     is(@$results[1]->type, 'chip', 'correct type');
 
-    isa_ok(@$results[2], 'DataStore::File::Record');
+    isa_ok(@$results[2], 'DataStore::File');
     is(@$results[2]->fileid, 'otis0123456.03', 'correct fileid');
     is(@$results[2]->bytes, '83002312', 'correct datetime');
@@ -150 +150 @@
     is(@$results[2]->type, 'chip', 'correct type');
 
-    isa_ok(@$results[3], 'DataStore::File::Record');
+    isa_ok(@$results[3], 'DataStore::File');
     is(@$results[3]->fileid, 'otis0123456.04', 'correct fileid');
     is(@$results[3]->bytes, '83002312', 'correct datetime');
@@ -175 +175 @@
     is(scalar @$results, 1, "correct number of item returned");
 
-    isa_ok(@$results[0], 'DataStore::File::Record');
+    isa_ok(@$results[0], 'DataStore::File');
     is(@$results[0]->fileid, 'otis0123456.01', 'correct fileid');
     is(@$results[0]->bytes, '83002312', 'correct datetime');