Index: trunk/PS-IPP-Metadata-Config/t/05_time.t
===================================================================
--- trunk/PS-IPP-Metadata-Config/t/05_time.t	(revision 9758)
+++ trunk/PS-IPP-Metadata-Config/t/05_time.t	(revision 10147)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 05_time.t,v 1.4 2006-10-27 02:15:45 jhoblitt Exp $
+# $Id: 05_time.t,v 1.5 2006-11-22 23:54:50 jhoblitt Exp $
 
 use strict;
@@ -12,5 +12,5 @@
 #$::RD_TRACE = 1;
 
-use Test::More tests => 17;
+use Test::More tests => 15;
 use PS::IPP::Metadata::Config;
 
@@ -32,23 +32,23 @@
         {
             name    => 'mytime',
-            class   => 'time',
-            type    => 'UTC',
-            value   => undef,
-        },
-        {
-            name    => 'mytime',
-            class   => 'time',
-            type    => 'UT1',
-            value   => undef,
-        },
-        {
-            name    => 'mytime',
-            class   => 'time',
-            type    => 'TAI',
-            value   => undef,
-        },
-        {
-            name    => 'mytime',
-            class   => 'time',
+            class   => 'scalar',
+            type    => 'UTC',
+            value   => undef,
+        },
+        {
+            name    => 'mytime',
+            class   => 'scalar',
+            type    => 'UT1',
+            value   => undef,
+        },
+        {
+            name    => 'mytime',
+            class   => 'scalar',
+            type    => 'TAI',
+            value   => undef,
+        },
+        {
+            name    => 'mytime',
+            class   => 'scalar',
             type    => 'TT',
             value   => undef,
@@ -74,26 +74,26 @@
         {
             name    => 'mytime',
-            class   => 'time',
-            type    => 'UTC',
-            value   => undef,
-            comment => 'comment',
-        },
-        {
-            name    => 'mytime',
-            class   => 'time',
-            type    => 'UT1',
-            value   => undef,
-            comment => 'comment',
-        },
-        {
-            name    => 'mytime',
-            class   => 'time',
-            type    => 'TAI',
-            value   => undef,
-            comment => 'comment',
-        },
-        {
-            name    => 'mytime',
-            class   => 'time',
+            class   => 'scalar',
+            type    => 'UTC',
+            value   => undef,
+            comment => 'comment',
+        },
+        {
+            name    => 'mytime',
+            class   => 'scalar',
+            type    => 'UT1',
+            value   => undef,
+            comment => 'comment',
+        },
+        {
+            name    => 'mytime',
+            class   => 'scalar',
+            type    => 'TAI',
+            value   => undef,
+            comment => 'comment',
+        },
+        {
+            name    => 'mytime',
+            class   => 'scalar',
             type    => 'TT',
             value   => undef,
@@ -120,23 +120,23 @@
         {
             name    => 'recently',
-            class   => 'time',
-            type    => 'UTC',
-            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
-        },
-        {
-            name    => 'recently',
-            class   => 'time',
-            type    => 'UT1',
-            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
-        },
-        {
-            name    => 'recently',
-            class   => 'time',
-            type    => 'TAI',
-            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
-        },
-        {
-            name    => 'recently',
-            class   => 'time',
+            class   => 'scalar',
+            type    => 'UTC',
+            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
+        },
+        {
+            name    => 'recently',
+            class   => 'scalar',
+            type    => 'UT1',
+            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
+        },
+        {
+            name    => 'recently',
+            class   => 'scalar',
+            type    => 'TAI',
+            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
+        },
+        {
+            name    => 'recently',
+            class   => 'scalar',
             type    => 'TT',
             value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
@@ -162,23 +162,23 @@
         {
             name    => 'recently',
-            class   => 'time',
-            type    => 'UTC',
-            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
-        },
-        {
-            name    => 'recently',
-            class   => 'time',
-            type    => 'UT1',
-            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
-        },
-        {
-            name    => 'recently',
-            class   => 'time',
-            type    => 'TAI',
-            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
-        },
-        {
-            name    => 'recently',
-            class   => 'time',
+            class   => 'scalar',
+            type    => 'UTC',
+            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
+        },
+        {
+            name    => 'recently',
+            class   => 'scalar',
+            type    => 'UT1',
+            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
+        },
+        {
+            name    => 'recently',
+            class   => 'scalar',
+            type    => 'TAI',
+            value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
+        },
+        {
+            name    => 'recently',
+            class   => 'scalar',
             type    => 'TT',
             value   => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"),
@@ -225,29 +225,29 @@
 }
 
-diag("epoch time format maybe deprecated");
-
-{
-my $example =<<END;
-recently    MULTI
-recently    UTC     123456, 5000, 1
-recently    UT1     123456, 5000
-recently    TAI     123456, 5000
-recently    TT      123456, 5000
-END
-    my $config = $config_parser->parse( $example );
-    ok( defined( $config ), "basic epoch time parsed");
-}
-
-{
-my $example =<<END;
-recently    MULTI
-recently    UTC     123456, 5000, 1         # foo
-recently    UT1     123456, 5000            # bar
-recently    TAI     123456, 5000            # baz
-recently    TT      123456, 5000            #
-END
-    my $config = $config_parser->parse( $example );
-    ok( defined( $config ), "epoch time with comments parsed");
-}
+#diag("epoch time format maybe deprecated");
+#
+#{
+#my $example =<<END;
+#recently    MULTI
+#recently    UTC     123456, 5000, 1
+#recently    UT1     123456, 5000
+#recently    TAI     123456, 5000
+#recently    TT      123456, 5000
+#END
+#    my $config = $config_parser->parse( $example );
+#    ok( defined( $config ), "basic epoch time parsed");
+#}
+#
+#{
+#my $example =<<END;
+#recently    MULTI
+#recently    UTC     123456, 5000, 1         # foo
+#recently    UT1     123456, 5000            # bar
+#recently    TAI     123456, 5000            # baz
+#recently    TT      123456, 5000            #
+#END
+#    my $config = $config_parser->parse( $example );
+#    ok( defined( $config ), "epoch time with comments parsed");
+#}
 
 {