Changeset 6491

Timestamp:

Feb 24, 2006, 2:13:36 PM (20 years ago)

Author:

jhoblitt

Message:

minor cleanups

Location:

trunk/DataStore/t

Files:

• 02_fileset_parse.t (modified) (6 diffs)
• 03_file_parse.t (modified) (2 diffs)

trunk/DataStore/t/02_fileset_parse.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 02_fileset_parse.t,v 1.2 2006-02-24 22:00:52 jhoblitt Exp $
+# $Id: 02_fileset_parse.t,v 1.3 2006-02-25 00:13:36 jhoblitt Exp $
 
 use strict;
@@ -15 +15 @@
 =head1 NAME
 
-t/parser.t - tests DataStore::FileSet::Parser
+t/02_fileset_parse.t - tests DataStore::FileSet::Parser
 
 =head1 SYNOPSIS
     
-    prove t/configure/configure.t
+    prove t/02_fileset_parse.t
 
 =cut
@@ -71 +71 @@
         '->parse() returns undef on failure');
 } qr/does not conform /,
-    '->parse() fails when the fileset fields is not in the proper format';
+    '->parse() fails when the fileset field is not in the proper format';
 
 warning_like {
@@ -79 +79 @@
         '->parse() returns undef on failure');
 } qr/does not conform /,
-    '->parse() fails when the datetime fields is not in the proper format';
+    '->parse() fails when the datetime field is not in the proper format';
 
 warning_like {
@@ -87 +87 @@
         '->parse() returns undef on failure');
 } qr/does not conform /,
-    '->parse() fails when the type fields is not in the proper format';
+    '->parse() fails when the type field is not in the proper format';
 
 warning_like {
@@ -122 +122 @@
     is(@$results[0]->datetime, '2006-01-01T00:03:04Z', 'correct datetime');
     is(@$results[0]->type, 'object', 'correct type');
+
     isa_ok(@$results[1], 'DataStore::FileSet::Record');
     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');
+
     isa_ok(@$results[2], 'DataStore::FileSet::Record');
     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');
+
     isa_ok(@$results[3], 'DataStore::FileSet::Record');
     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');
-
 }
 

trunk/DataStore/t/03_file_parse.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 03_file_parse.t,v 1.1 2006-02-25 00:09:10 jhoblitt Exp $
+# $Id: 03_file_parse.t,v 1.2 2006-02-25 00:13:36 jhoblitt Exp $
 
 use strict;
@@ -15 +15 @@
 =head1 NAME
 
-t/parser.t - tests DataStore::File::Parser
+t/03_file_parse.t - tests DataStore::File::Parser
 
 =head1 SYNOPSIS
     
-    prove t/configure/configure.t
+    prove t/03_file_parse.t
 
 =cut