Changeset 6606

Timestamp:

Mar 16, 2006, 11:51:46 AM (20 years ago)

Author:

jhoblitt

Message:

test ->parse()'s return in list and scalar context

Location:

trunk/DataStore/t

Files:

• 02_fileset_parse.t (modified) (3 diffs)
• 03_file_parse.t (modified) (3 diffs)

trunk/DataStore/t/02_fileset_parse.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 02_fileset_parse.t,v 1.5 2006-02-28 03:02:12 jhoblitt Exp $
+# $Id: 02_fileset_parse.t,v 1.6 2006-03-16 21:51:46 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use lib qw( ./lib ./t );
 
-use Test::More tests => 42;
+use Test::More tests => 43;
 use Test::Warn;
 
@@ -117 +117 @@
         base_uri => 'http://foo.com/'
     );
+    my @results = $parser->parse($example1);
+
+    is(scalar @results, 4, "correct number of item returned in list context");
+}
+
+{
+    # multi-row example
+my $example1 =<<END;
+# filesetID|time registered    |type   |telescope pointing         |etime|f|airmass|
+otis0123456|2006-01-01T00:03:04Z|object|11:00:10.33 68:26:59.6 2000|30.0 |r|1.23   |
+otis0123456|2006-01-01T00:03:04Z|object|11:00:10.33 68:26:59.6 2000|30.0 |r|1.23   |
+otis0123456|2006-01-01T00:03:04Z|object|11:00:10.33 68:26:59.6 2000|30.0 |r|1.23   |
+otis0123456|2006-01-01T00:03:04Z|object|11:00:10.33 68:26:59.6 2000|30.0 |r|1.23   |
+END
+    my $parser  = DataStore::FileSet::Parser->new(
+        base_uri => 'http://foo.com/'
+    );
     my $results = $parser->parse($example1);
 
-    is(scalar @$results, 4, "correct number of item returned");
+    is(scalar @$results, 4,
+        "correct number of item returned in scalar context");
 
     isa_ok(@$results[0], 'DataStore::FileSet');

trunk/DataStore/t/03_file_parse.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 03_file_parse.t,v 1.3 2006-02-28 03:02:12 jhoblitt Exp $
+# $Id: 03_file_parse.t,v 1.4 2006-03-16 21:51:46 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use lib qw( ./lib ./t );
 
-use Test::More tests => 45;
+use Test::More tests => 46;
 use Test::Warn;
 
@@ -128 +128 @@
 otis0123456.04|83002312|7bb35e1e30f3f833c0416aea75f90304|chip|ota04   |
 END
+    my @results = DataStore::File::Parser->new->parse($example1);
+    is(scalar @results, 4, "correct number of item returned in list context");
+}
+
+{
+    # multi-row example
+my $example1 =<<END;
+# fileID      |bytes   |md5sum                          |type|chipname|
+otis0123456.01|83002312|fe6a2b6564c0d4cfb3bbf1db813824ba|chip|ota01   |
+otis0123456.02|83002312|a2b4a7d7b94dc6076c5f3f67239a48c6|chip|ota02   |
+otis0123456.03|83002312|a39b1510484c7833e27454b181f13981|chip|ota03   |
+otis0123456.04|83002312|7bb35e1e30f3f833c0416aea75f90304|chip|ota04   |
+END
     my $results = DataStore::File::Parser->new->parse($example1);
 
-    is(scalar @$results, 4, "correct number of item returned");
+    is(scalar @$results, 4,
+        "correct number of item returned in scalar context");
 
     isa_ok(@$results[0], 'DataStore::File');