Changeset 7951 for trunk/DataStore/t/08_response.t

Timestamp:

Jul 21, 2006, 3:17:34 PM (20 years ago)

Author:

smalle

Message:

• Added a Root object and associated Product::Parser to query the root of the datastore.

• The 'is_success' field in a Response now gets its value carried over from the HTTP::Response as intended.

• The 'data' field in a Response can now be undef to indicate that no records were parsed.

• Root::request, Product::request, FileSet::request now always return a Response object.

• FileSets and Files will now have any additional non-standard fields parsed into the @extra array.

• Updated tests.

File:

• trunk/DataStore/t/08_response.t (modified) (3 diffs)

trunk/DataStore/t/08_response.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 08_response.t,v 1.1 2006-03-08 02:11:46 jhoblitt Exp $
+# $Id: 08_response.t,v 1.2 2006-07-22 01:17:34 smalle Exp $
 
 use strict;
@@ -10 +10 @@
 use lib qw( ./lib ./t );
 
-use Test::More tests => 9;
+use Test::More tests => 8;
 
 =head1 NAME
@@ -81 +81 @@
 
 eval {
-    my $dsr = DataStore::Response->new( data => undef );
-};
-like($@, qr/is not one of the allowed types/,
-    '->new() fails when data is not valid');
-
-eval {
     my $dsr = DataStore::Response->new(
         request => CGI->new,