Changeset 6647

Timestamp:

Mar 20, 2006, 12:01:47 PM (20 years ago)

Author:

jhoblitt

Message:

make ->new() params fileset, datetime, & type optional

Location:

trunk/DataStore

Files:

• lib/DataStore/FileSet.pm (modified) (4 diffs)
• t/06_fileset.t (modified) (3 diffs)

trunk/DataStore/lib/DataStore/FileSet.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: FileSet.pm,v 1.8 2006-03-17 01:10:51 jhoblitt Exp $
+# $Id: FileSet.pm,v 1.9 2006-03-20 22:01:47 jhoblitt Exp $
 
 package DataStore::FileSet;
@@ -89 +89 @@
 The FileSet ID as a string.
 
+This key is optional.
+
 =item * datetime
 
 The time and date as a string.
 
+This key is optional.
+
 =item * type
 
 The I<type> of record as a string.
+
+This key is optional.
 
 =back
@@ -120 +126 @@
                 type        => SCALAR,
                 regex       => $STD_FIELD,
+                optional    => 1,
             },
             datetime    => {
                 type        => SCALAR,
                 regex       => $TIME_FIELD,
+                optional    => 1,
             },
             type        => {
@@ -131 +139 @@
                         sub { exists $KNOWN_FILESET_TYPES{$_[0]} },
                 },
+                optional    => 1,
             },
         },

trunk/DataStore/t/06_fileset.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 06_fileset.t,v 1.5 2006-03-17 23:54:35 jhoblitt Exp $
+# $Id: 06_fileset.t,v 1.6 2006-03-20 22:01:47 jhoblitt Exp $
 
 use strict;
@@ -69 +69 @@
     my $dsp = DataStore::FileSet->new;
 };
-like($@, qr/Mandatory parameters/,
+like($@, qr/Mandatory parameter/,
     '->new() fails when not passed all manadator params');
 
@@ -149 +149 @@
 }
 
+sleep 60;
 # cleanup HTTP server
 kill 9, $pid;