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' );
+ plan skip_all => 'needs Data::UUID for testing'
+ unless
+ eval 'require Data::UUID' ||
+ eval 'require APR::UUID' ||
+ eval 'require UUID' ||
+ eval 'require Win32::Guidgen' ||
+ eval 'require Win32API::GUID';
+
+ plan skip_all => 'needs SQL::Translator for testing'
+ unless eval 'require SQL::Translator';
+
+ plan tests => 3;
}
use lib qw(t/lib);
$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
+1;