Nums are Strs too
Shawn M Moore [Tue, 10 Jun 2008 00:50:28 +0000 (00:50 +0000)]
t/024-isa.t

index 476ab0c..92454bc 100644 (file)
@@ -10,9 +10,9 @@ my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
 
 my @type_values = (
     undef              ,  [qw/Any Item Undef Bool/],
-    0                  => [qw/Any Item Defined Bool Value Num Int/],
-    1                  => [qw/Any Item Defined Bool Value Num Int/],
-    1.5                => [qw/Any Item Defined Value Num/],
+    0                  => [qw/Any Item Defined Bool Value Num Int Str/],
+    1                  => [qw/Any Item Defined Bool Value Num Int Str/],
+    1.5                => [qw/Any Item Defined Value Num Str/],
     ''                 => [qw/Any Item Defined Bool Value Str/],
     't'                => [qw/Any Item Defined Value Str/],
     'f'                => [qw/Any Item Defined Value Str/],