Index: /trunk/DataStore/MANIFEST
===================================================================
--- /trunk/DataStore/MANIFEST	(revision 6539)
+++ /trunk/DataStore/MANIFEST	(revision 6540)
@@ -19,2 +19,3 @@
 t/04_record.t
 t/05_product.t
+t/06_fileset.t
Index: /trunk/DataStore/t/06_fileset.t
===================================================================
--- /trunk/DataStore/t/06_fileset.t	(revision 6540)
+++ /trunk/DataStore/t/06_fileset.t	(revision 6540)
@@ -0,0 +1,75 @@
+#!/usr/bin/env perl
+
+# Copyright (C) 2006  Joshua Hoblitt
+#
+# $Id: 06_fileset.t,v 1.1 2006-03-08 00:23:09 jhoblitt Exp $
+
+use strict;
+use warnings;
+
+use lib qw( ./lib ./t );
+
+use Test::More tests => 6;
+
+=head1 NAME
+
+t/06_fileset.t - tests DataStore::FileSet
+
+=head1 SYNOPSIS
+    
+    prove t/06_fileset.t
+
+=cut
+
+use DataStore::FileSet;
+
+can_ok('DataStore::FileSet', qw(
+    new
+    request
+));
+
+# ->new()
+
+{
+    my $dsf = DataStore::FileSet->new(
+        uri         => 'http://example.org/',
+        fileset     => '12buckelyourshoe',
+        datetime    => '2042-01-01T00:00:00Z',
+        type        => 'foo',
+    );
+
+    isa_ok($dsf, 'DataStore::FileSet');
+}
+
+eval {
+    my $dsf = DataStore::FileSet->new(
+        uri         => 'http://example.org/',
+        fileset     => '12buckelyourshoe',
+        datetime    => '2042-01-01T00:00:00Z',
+        type        => 'foo',
+        foo         => 1,
+    );
+};
+like($@, qr/not listed in the validation options/,
+    '->new() fails whe passed extra params');
+
+eval {
+    my $dsf = DataStore::FileSet->new( uri => 'http://example.org' );
+};
+like($@, qr/is valid uri dirname/,
+    '->new() fails when uri param does not end with /');
+
+eval {
+    my $dsf = DataStore::FileSet->new( uri => '://example.org' );
+};
+like($@, qr/is valid http uri/,
+    '->new() fails when uri param is not http protocol');
+
+eval {
+    my $dsp = DataStore::FileSet->new;
+};
+like($@, qr/Mandatory parameters/,
+    '->new() fails when not passed all manadator params');
+
+# ->request()
+
