DBIx-Class-UUIDColumns now has it's own working test suite

[dbsrgits/DBIx-Class-UUIDColumns.git] / t / 05uuid.t

diff --git a/t/05uuid.t b/t/05uuid.t
new file mode 100644 (file)
index 0000000..54abb6b
--- /dev/null
+++ b/t/05uuid.t
@@ -0,0 +1,37 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+    plan eval "require Data::UUID" ||
+        eval "require APR::UUID" ||
+        eval "require UUID" ||
+        eval "require Win32::Guidgen" ||
+        eval "require Win32API::GUID"
+        ? ( tests => 3 )
+        : ( skip_all => 'needs Data::UUID, APR::UUID, UUID, Win32::Guidgen or Win32API::GUID for testing' );
+}
+
+use lib qw(t/lib);
+
+use UUIDTest;
+use UUIDTest::Setup;
+
+my $schema = UUIDTest->schema;
+my $row;
+
+
+$row = $schema->resultset('Test')->create({ });
+ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Auto';
+
+UUIDTest::Schema::Test->uuid_class('CustomUUIDMaker');
+Class::C3->reinitialize();
+$row = $schema->resultset('Test')->create({ });
+ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from CustomUUIDMaker';
+
+UUIDTest::Schema::Test->uuid_class('::Data::UUID');
+Class::C3->reinitialize();
+$row = $schema->resultset('Test')->create({ });
+ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Data::UUID';
+
+1;
\ No newline at end of file