initial checkin

diff --git a/Equinox-Migration/t/03-MapDrivenXMLProc.t b/Equinox-Migration/t/03-MapDrivenXMLProc.t
new file mode 100644 (file)
index 0000000..3c3540c
--- /dev/null
+++ b/Equinox-Migration/t/03-MapDrivenXMLProc.t
@@ -0,0 +1,10 @@
+#!perl -T
+
+#use Test::More tests => 39;
+use Test::More qw(no_plan);
+use Equinox::Migration::MapDrivenXMLProc;
+
+# baseline object creation
+my $sm = Equinox::Migration::MapDrivenXMLProc->new();
+is(ref $sm, "Equinox::Migration::MapDrivenXMLProc", "self is self");
+