[Bast-commits] r3246 - in trunk/DBIx-Class-UUIDColumns: . lib/DBIx/Class lib/DBIx/Class/UUIDColumns lib/DBIx/Class/UUIDColumns/UUIDMaker lib/DBIx/Class/UUIDColumns/UUIDMaker/APR lib/DBIx/Class/UUIDColumns/UUIDMaker/Data lib/DBIx/Class/UUIDColumns/UUIDMaker/Win32 lib/DBIx/Class/UUIDColumns/UUIDMaker/Win32API t t/lib t/lib/DBIC t/lib/DBIC/Test t/lib/DBIC/Test/Schema t/sql

claco at dev.catalyst.perl.org claco at dev.catalyst.perl.org
Sun May 6 01:59:25 GMT 2007


Author: claco
Date: 2007-05-06 01:59:25 +0100 (Sun, 06 May 2007)
New Revision: 3246

Modified:
   trunk/DBIx-Class-UUIDColumns/Build.PL
   trunk/DBIx-Class-UUIDColumns/Changes
   trunk/DBIx-Class-UUIDColumns/MANIFEST.SKIP
   trunk/DBIx-Class-UUIDColumns/Makefile.PL
   trunk/DBIx-Class-UUIDColumns/README
   trunk/DBIx-Class-UUIDColumns/TODO
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns.pm
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker.pm
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/APR/UUID.pm
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Data/GUID.pm
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Data/UUID.pm
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Data/Uniqid.pm
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/UUID.pm
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Win32/Guidgen.pm
   trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Win32API/GUID.pm
   trunk/DBIx-Class-UUIDColumns/t/basic.t
   trunk/DBIx-Class-UUIDColumns/t/lib/BadUUIDMaker.pm
   trunk/DBIx-Class-UUIDColumns/t/lib/CustomUUIDMaker.pm
   trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test.pm
   trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema.pm
   trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema/Test.pm
   trunk/DBIx-Class-UUIDColumns/t/manifest.t
   trunk/DBIx-Class-UUIDColumns/t/pod_coverage.t
   trunk/DBIx-Class-UUIDColumns/t/pod_spelling.t
   trunk/DBIx-Class-UUIDColumns/t/pod_syntax.t
   trunk/DBIx-Class-UUIDColumns/t/sql/test.sqlite.sql
   trunk/DBIx-Class-UUIDColumns/t/strict.t
   trunk/DBIx-Class-UUIDColumns/t/style_no_tabs.t
   trunk/DBIx-Class-UUIDColumns/t/uuid.t
   trunk/DBIx-Class-UUIDColumns/t/warnings.t
Log:
Updated props

Modified: trunk/DBIx-Class-UUIDColumns/Build.PL
===================================================================
--- trunk/DBIx-Class-UUIDColumns/Build.PL	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/Build.PL	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,2 +1,2 @@
-# $Id: Build.PL 3236 2007-05-05 16:24:35Z claco $
-require 'Makefile.PL';
+# $Id$
+require 'Makefile.PL';


Property changes on: trunk/DBIx-Class-UUIDColumns/Build.PL
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/Changes
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/MANIFEST.SKIP
===================================================================
--- trunk/DBIx-Class-UUIDColumns/MANIFEST.SKIP	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/MANIFEST.SKIP	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,17 +1,17 @@
-\bRCS\b
-\bCVS\b
-,v$
-\B\.svn\b
-t/var
-^blib/
-^pm_to_blib
-^MakeMaker-\d
-Makefile$
-Makefile.old$
-Build.PL
-Build.bat
-\.db
-t/TEST$
-t/SMOKE$
-^blibdirs\.ts
+\bRCS\b
+\bCVS\b
+,v$
+\B\.svn\b
+t/var
+^blib/
+^pm_to_blib
+^MakeMaker-\d
+Makefile$
+Makefile.old$
+Build.PL
+Build.bat
+\.db
+t/TEST$
+t/SMOKE$
+^blibdirs\.ts
 \.gz
\ No newline at end of file


Property changes on: trunk/DBIx-Class-UUIDColumns/MANIFEST.SKIP
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/Makefile.PL
===================================================================
--- trunk/DBIx-Class-UUIDColumns/Makefile.PL	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/Makefile.PL	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,41 +1,41 @@
-# $Id: Makefile.PL 3236 2007-05-05 16:24:35Z claco $
-use strict;
-use warnings;
-use inc::Module::Install 0.65;
-
-name 'DBIx-Class-UUIDColumns';
-license 'perl';
-perl_version '5.008001';
-all_from 'lib/DBIx/Class/UUIDColumns.pm';
-
-requires 'DBIx::Class' => '0.07005';
-
-if (
-    !eval 'require Data::UUID' &&
-    !eval 'require ARE::UUID' &&
-    !eval 'require UUID' &&
-    !eval 'require Win32::Guidgen' &&
-    !eval 'require Win32API::GUID' &&
-    !eval 'require Data::Uniqid'
-    ) {
-    requires 'Data::UUID';
-};
-
-build_requires 'DBD::SQLite'     => '1.11';
-
-recommends 'Data::UUID';
-recommends 'Data::Uniqid';
-recommends 'APR::UUID';
-recommends 'UUID';
-recommends 'Win32::Guidgen';
-recommends 'Win32API::GUID';
-
-tests "t/*.t t/*/*.t";
-clean_files "DBIx-Class-UUIDColumns-* t/var";
-
-eval {
-    system 'pod2text lib/DBIx/Class/UUIDColumns.pm > README';
-};
-
-auto_install;
-WriteAll;
+# $Id$
+use strict;
+use warnings;
+use inc::Module::Install 0.65;
+
+name 'DBIx-Class-UUIDColumns';
+license 'perl';
+perl_version '5.008001';
+all_from 'lib/DBIx/Class/UUIDColumns.pm';
+
+requires 'DBIx::Class' => '0.07005';
+
+if (
+    !eval 'require Data::UUID' &&
+    !eval 'require ARE::UUID' &&
+    !eval 'require UUID' &&
+    !eval 'require Win32::Guidgen' &&
+    !eval 'require Win32API::GUID' &&
+    !eval 'require Data::Uniqid'
+    ) {
+    requires 'Data::UUID';
+};
+
+build_requires 'DBD::SQLite'     => '1.11';
+
+recommends 'Data::UUID';
+recommends 'Data::Uniqid';
+recommends 'APR::UUID';
+recommends 'UUID';
+recommends 'Win32::Guidgen';
+recommends 'Win32API::GUID';
+
+tests "t/*.t t/*/*.t";
+clean_files "DBIx-Class-UUIDColumns-* t/var";
+
+eval {
+    system 'pod2text lib/DBIx/Class/UUIDColumns.pm > README';
+};
+
+auto_install;
+WriteAll;


Property changes on: trunk/DBIx-Class-UUIDColumns/Makefile.PL
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/README
===================================================================
--- trunk/DBIx-Class-UUIDColumns/README	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/README	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,79 +1,79 @@
-NAME
-    DBIx::Class::UUIDColumns - Implicit uuid columns
-
-SYNOPSIS
-    In your DBIx::Class table class:
-
-      __PACKAGE__->load_components(qw/UUIDColumns ... Core/);
-      __PACKAGE__->uuid_columns('artist_id');
-
-    Note: The component needs to be loaded *before* Core.
-
-DESCRIPTION
-    This DBIx::Class component resembles the behaviour of Class::DBI::UUID,
-    to make some columns implicitly created as uuid.
-
-    When loaded, "UUIDColumns" will search for a suitable uuid generation
-    module from the following list of supported modules:
-
-      Data::UUID
-      APR::UUID*
-      UUID
-      Win32::Guidgen
-      Win32API::GUID
-
-    If no supporting module can be found, an exception will be thrown.
-
-    *APR::UUID will not be loaded under OpenBSD due to an as yet
-    unidentified XS issue.
-
-    If you would like to use a specific module, you can set "uuid_class":
-
-      __PACKAGE__->uuid_class('::Data::UUID');
-      __PACKAGE__->uuid_class('MyUUIDGenerator');
-
-METHODS
-  get_uuid
-    Returns a uuid string from the current uuid_maker.
-
-  insert
-    Inserts a new uuid string into each column in "uuid_columns".
-
-  uuid_columns
-    Takes a list of columns to be filled with uuids during insert.
-
-      __PACKAGE__->uuid_columns('artist_id');
-
-  uuid_class
-    Takes the name of a UUIDMaker subclass to be used for uuid value
-    generation. This can be a fully qualified class name, or a shortcut name
-    starting with :: that matches one of the available
-    DBIx::Class::UUIDColumns::UUIDMaker subclasses:
-
-      __PACKAGE__->uuid_class('CustomUUIDGenerator');
-      # loads CustomeUUIDGenerator
-
-      __PACKAGE__->uuid_class('::Data::UUID');
-      # loads DBIx::Class::UUIDMaker::Data::UUID;
-
-    Note that "uuid_class" checks to see that the specified class isa
-    DBIx::Class::UUIDColumns::UUIDMaker subclass and throws and exception if
-    it isn't.
-
-  uuid_maker
-    Returns the current UUIDMaker instance for the given module.
-
-      my $uuid = __PACKAGE__->uuid_maker->as_string;
-
-SEE ALSO
-    DBIx::Class::UUIDColumns::UUIDMaker
-
-AUTHOR
-    Chia-liang Kao <clkao at clkao.org>
-
-CONTRIBUTERS
-    Chris Laco <claco at chrislaco.com>
-
-LICENSE
-    You may distribute this code under the same terms as Perl itself.
-
+NAME
+    DBIx::Class::UUIDColumns - Implicit uuid columns
+
+SYNOPSIS
+    In your DBIx::Class table class:
+
+      __PACKAGE__->load_components(qw/UUIDColumns ... Core/);
+      __PACKAGE__->uuid_columns('artist_id');
+
+    Note: The component needs to be loaded *before* Core.
+
+DESCRIPTION
+    This DBIx::Class component resembles the behaviour of Class::DBI::UUID,
+    to make some columns implicitly created as uuid.
+
+    When loaded, "UUIDColumns" will search for a suitable uuid generation
+    module from the following list of supported modules:
+
+      Data::UUID
+      APR::UUID*
+      UUID
+      Win32::Guidgen
+      Win32API::GUID
+
+    If no supporting module can be found, an exception will be thrown.
+
+    *APR::UUID will not be loaded under OpenBSD due to an as yet
+    unidentified XS issue.
+
+    If you would like to use a specific module, you can set "uuid_class":
+
+      __PACKAGE__->uuid_class('::Data::UUID');
+      __PACKAGE__->uuid_class('MyUUIDGenerator');
+
+METHODS
+  get_uuid
+    Returns a uuid string from the current uuid_maker.
+
+  insert
+    Inserts a new uuid string into each column in "uuid_columns".
+
+  uuid_columns
+    Takes a list of columns to be filled with uuids during insert.
+
+      __PACKAGE__->uuid_columns('artist_id');
+
+  uuid_class
+    Takes the name of a UUIDMaker subclass to be used for uuid value
+    generation. This can be a fully qualified class name, or a shortcut name
+    starting with :: that matches one of the available
+    DBIx::Class::UUIDColumns::UUIDMaker subclasses:
+
+      __PACKAGE__->uuid_class('CustomUUIDGenerator');
+      # loads CustomeUUIDGenerator
+
+      __PACKAGE__->uuid_class('::Data::UUID');
+      # loads DBIx::Class::UUIDMaker::Data::UUID;
+
+    Note that "uuid_class" checks to see that the specified class isa
+    DBIx::Class::UUIDColumns::UUIDMaker subclass and throws and exception if
+    it isn't.
+
+  uuid_maker
+    Returns the current UUIDMaker instance for the given module.
+
+      my $uuid = __PACKAGE__->uuid_maker->as_string;
+
+SEE ALSO
+    DBIx::Class::UUIDColumns::UUIDMaker
+
+AUTHOR
+    Chia-liang Kao <clkao at clkao.org>
+
+CONTRIBUTERS
+    Chris Laco <claco at chrislaco.com>
+
+LICENSE
+    You may distribute this code under the same terms as Perl itself.
+


Property changes on: trunk/DBIx-Class-UUIDColumns/README
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/TODO
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/APR/UUID.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Data/GUID.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Data/UUID.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Data/Uniqid.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/UUID.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Win32/Guidgen.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker/Win32API/GUID.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns/UUIDMaker.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/lib/DBIx/Class/UUIDColumns.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/basic.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/basic.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/basic.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,12 +1,12 @@
-#!perl -wT
-# $Id: basic.t 3235 2007-05-05 16:23:08Z claco $
-use strict;
-use warnings;
-
-BEGIN {
-    use lib 't/lib';
-    use DBIC::Test tests => 2;
-
-    use_ok('DBIx::Class::UUIDColumns');
-    use_ok('DBIx::Class::UUIDColumns::UUIDMaker');
-};
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+    use lib 't/lib';
+    use DBIC::Test tests => 2;
+
+    use_ok('DBIx::Class::UUIDColumns');
+    use_ok('DBIx::Class::UUIDColumns::UUIDMaker');
+};


Property changes on: trunk/DBIx-Class-UUIDColumns/t/basic.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/t/lib/BadUUIDMaker.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native


Property changes on: trunk/DBIx-Class-UUIDColumns/t/lib/CustomUUIDMaker.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema/Test.pm
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema/Test.pm	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema/Test.pm	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,21 +1,21 @@
-# $Id: Test.pm 3236 2007-05-05 16:24:35Z claco $
-package DBIC::Test::Schema::Test;
-use strict;
-use warnings;
-
-BEGIN {
-    use base qw/DBIx::Class::Core/;
-};
-
-__PACKAGE__->load_components(qw/UUIDColumns Core/);
-__PACKAGE__->table('test');
-__PACKAGE__->add_columns(
-  'id' => {
-    data_type => 'varchar',
-    size      => 36,
-  },
-);
-__PACKAGE__->set_primary_key('id');
-__PACKAGE__->uuid_columns('id');
-
-1;
+# $Id$
+package DBIC::Test::Schema::Test;
+use strict;
+use warnings;
+
+BEGIN {
+    use base qw/DBIx::Class::Core/;
+};
+
+__PACKAGE__->load_components(qw/UUIDColumns Core/);
+__PACKAGE__->table('test');
+__PACKAGE__->add_columns(
+  'id' => {
+    data_type => 'varchar',
+    size      => 36,
+  },
+);
+__PACKAGE__->set_primary_key('id');
+__PACKAGE__->uuid_columns('id');
+
+1;


Property changes on: trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema/Test.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema.pm
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema.pm	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema.pm	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,15 +1,15 @@
-# $Id: Schema.pm 3236 2007-05-05 16:24:35Z claco $
-package DBIC::Test::Schema;
-use strict;
-use warnings;
-
-BEGIN {
-    use base qw/DBIx::Class::Schema/;
-};
-__PACKAGE__->load_classes;
-
-sub dsn {
-    return shift->storage->connect_info->[0];
-};
-
-1;
+# $Id$
+package DBIC::Test::Schema;
+use strict;
+use warnings;
+
+BEGIN {
+    use base qw/DBIx::Class::Schema/;
+};
+__PACKAGE__->load_classes;
+
+sub dsn {
+    return shift->storage->connect_info->[0];
+};
+
+1;


Property changes on: trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test/Schema.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test.pm
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test.pm	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test.pm	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,112 +1,112 @@
-# $Id: Test.pm 3236 2007-05-05 16:24:35Z claco $
-package DBIC::Test;
-use strict;
-use warnings;
-
-BEGIN {
-    # little trick by Ovid to pretend to subclass+exporter Test::More
-    use base qw/Test::Builder::Module Class::Accessor::Grouped/;
-    use Test::More;
-    use File::Spec::Functions qw/catfile catdir/;
-
-    @DBIC::Test::EXPORT = @Test::More::EXPORT;
-
-    __PACKAGE__->mk_group_accessors('inherited', qw/db_dir db_file/);
-};
-
-__PACKAGE__->db_dir(catdir('t', 'var'));
-__PACKAGE__->db_file('test.db');
-
-## cribbed and modified from DBICTest in DBIx::Class tests
-sub init_schema {
-    my ($self, %args) = @_;
-    my $db_dir  = $args{'db_dir'}  || $self->db_dir;
-    my $db_file = $args{'db_file'} || $self->db_file;
-    my $namespace = $args{'namespace'} || 'DBIC::TestSchema';
-    my $db = catfile($db_dir, $db_file);
-
-    eval 'use DBD::SQLite';
-    if ($@) {
-       BAIL_OUT('DBD::SQLite not installed');
-
-        return;
-    };
-
-    eval 'use DBIC::Test::Schema';
-    if ($@) {
-        BAIL_OUT("Could not load DBIC::Test::Schema: $@");
-
-        return;
-    };
-
-    unlink($db) if -e $db;
-    unlink($db . '-journal') if -e $db . '-journal';
-    mkdir($db_dir) unless -d $db_dir;
-
-    my $dsn = 'dbi:SQLite:' . $db;
-    my $schema = DBIC::Test::Schema->compose_namespace($namespace)->connect($dsn);
-    $schema->storage->on_connect_do([
-        'PRAGMA synchronous = OFF',
-        'PRAGMA temp_store = MEMORY'
-    ]);
-
-    __PACKAGE__->deploy_schema($schema, %args);
-    __PACKAGE__->populate_schema($schema, %args) unless $args{'no_populate'};
-
-    return $schema;
-};
-
-sub deploy_schema {
-    my ($self, $schema, %options) = @_;
-    my $eval = $options{'eval_deploy'};
-
-    eval 'use SQL::Translator';
-    if (!$@ && !$options{'no_deploy'}) {
-        eval {
-            $schema->deploy();
-        };
-        if ($@ && !$eval) {
-            die $@;
-        };
-    } else {
-        open IN, catfile('t', 'sql', 'test.sqlite.sql');
-        my $sql;
-        { local $/ = undef; $sql = <IN>; }
-        close IN;
-        eval {
-            ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql);
-        };
-        if ($@ && !$eval) {
-            die $@;
-        };
-    };
-};
-
-sub clear_schema {
-    my ($self, $schema, %options) = @_;
-
-    foreach my $source ($schema->sources) {
-        $schema->resultset($source)->delete_all;
-    };
-};
-
-sub populate_schema {
-    my ($self, $schema, %options) = @_;
-    
-    if ($options{'clear'}) {
-        $self->clear_schema($schema, %options);
-    };
-};
-
-sub is_uuid {
-    my $value = defined $_[0] ? shift : '';
-
-    return ($value =~ m/  ^[0-9a-f]{8}-
-                           [0-9a-f]{4}-
-                           [0-9a-f]{4}-
-                           [0-9a-f]{4}-
-                           [0-9a-f]{12}$
-                      /ix);
-};
-
-1;
+# $Id$
+package DBIC::Test;
+use strict;
+use warnings;
+
+BEGIN {
+    # little trick by Ovid to pretend to subclass+exporter Test::More
+    use base qw/Test::Builder::Module Class::Accessor::Grouped/;
+    use Test::More;
+    use File::Spec::Functions qw/catfile catdir/;
+
+    @DBIC::Test::EXPORT = @Test::More::EXPORT;
+
+    __PACKAGE__->mk_group_accessors('inherited', qw/db_dir db_file/);
+};
+
+__PACKAGE__->db_dir(catdir('t', 'var'));
+__PACKAGE__->db_file('test.db');
+
+## cribbed and modified from DBICTest in DBIx::Class tests
+sub init_schema {
+    my ($self, %args) = @_;
+    my $db_dir  = $args{'db_dir'}  || $self->db_dir;
+    my $db_file = $args{'db_file'} || $self->db_file;
+    my $namespace = $args{'namespace'} || 'DBIC::TestSchema';
+    my $db = catfile($db_dir, $db_file);
+
+    eval 'use DBD::SQLite';
+    if ($@) {
+       BAIL_OUT('DBD::SQLite not installed');
+
+        return;
+    };
+
+    eval 'use DBIC::Test::Schema';
+    if ($@) {
+        BAIL_OUT("Could not load DBIC::Test::Schema: $@");
+
+        return;
+    };
+
+    unlink($db) if -e $db;
+    unlink($db . '-journal') if -e $db . '-journal';
+    mkdir($db_dir) unless -d $db_dir;
+
+    my $dsn = 'dbi:SQLite:' . $db;
+    my $schema = DBIC::Test::Schema->compose_namespace($namespace)->connect($dsn);
+    $schema->storage->on_connect_do([
+        'PRAGMA synchronous = OFF',
+        'PRAGMA temp_store = MEMORY'
+    ]);
+
+    __PACKAGE__->deploy_schema($schema, %args);
+    __PACKAGE__->populate_schema($schema, %args) unless $args{'no_populate'};
+
+    return $schema;
+};
+
+sub deploy_schema {
+    my ($self, $schema, %options) = @_;
+    my $eval = $options{'eval_deploy'};
+
+    eval 'use SQL::Translator';
+    if (!$@ && !$options{'no_deploy'}) {
+        eval {
+            $schema->deploy();
+        };
+        if ($@ && !$eval) {
+            die $@;
+        };
+    } else {
+        open IN, catfile('t', 'sql', 'test.sqlite.sql');
+        my $sql;
+        { local $/ = undef; $sql = <IN>; }
+        close IN;
+        eval {
+            ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql);
+        };
+        if ($@ && !$eval) {
+            die $@;
+        };
+    };
+};
+
+sub clear_schema {
+    my ($self, $schema, %options) = @_;
+
+    foreach my $source ($schema->sources) {
+        $schema->resultset($source)->delete_all;
+    };
+};
+
+sub populate_schema {
+    my ($self, $schema, %options) = @_;
+    
+    if ($options{'clear'}) {
+        $self->clear_schema($schema, %options);
+    };
+};
+
+sub is_uuid {
+    my $value = defined $_[0] ? shift : '';
+
+    return ($value =~ m/  ^[0-9a-f]{8}-
+                           [0-9a-f]{4}-
+                           [0-9a-f]{4}-
+                           [0-9a-f]{4}-
+                           [0-9a-f]{12}$
+                      /ix);
+};
+
+1;


Property changes on: trunk/DBIx-Class-UUIDColumns/t/lib/DBIC/Test.pm
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/manifest.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/manifest.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/manifest.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,22 +1,22 @@
-#!perl -wT
-# $Id: manifest.t 3236 2007-05-05 16:24:35Z claco $
-use strict;
-use warnings;
-
-BEGIN {
-    use lib 't/lib';
-    use DBIC::Test;
-
-    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
-
-    eval 'use Test::CheckManifest 0.09';
-    if($@) {
-        plan skip_all => 'Test::CheckManifest 0.09 not installed';
-    };
-};
-
-ok_manifest({
-    exclude => ['/t/var', '/cover_db'],
-    filter  => [qr/\.svn/, qr/cover/, qr/Build(.(PL|bat))?/, qr/_build/],
-    bool    => 'or'
-});
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+    use lib 't/lib';
+    use DBIC::Test;
+
+    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+    eval 'use Test::CheckManifest 0.09';
+    if($@) {
+        plan skip_all => 'Test::CheckManifest 0.09 not installed';
+    };
+};
+
+ok_manifest({
+    exclude => ['/t/var', '/cover_db'],
+    filter  => [qr/\.svn/, qr/cover/, qr/Build(.(PL|bat))?/, qr/_build/],
+    bool    => 'or'
+});


Property changes on: trunk/DBIx-Class-UUIDColumns/t/manifest.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/pod_coverage.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/pod_coverage.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/pod_coverage.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,23 +1,23 @@
-#!perl -wT
-# $Id: pod_coverage.t 3236 2007-05-05 16:24:35Z claco $
-use strict;
-use warnings;
-
-BEGIN {
-    use lib 't/lib';
-    use DBIC::Test;
-
-    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
-
-    eval 'use Test::Pod::Coverage 1.04';
-    plan skip_all => 'Test::Pod::Coverage 1.04' if $@;
-
-    eval 'use Pod::Coverage 0.14';
-    plan skip_all => 'Pod::Coverage 0.14 not installed' if $@;
-};
-
-my $trustme = {
-    trustme => [qr/^(g|s)et_component_class$/]
-};
-
-all_pod_coverage_ok($trustme);
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+    use lib 't/lib';
+    use DBIC::Test;
+
+    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+    eval 'use Test::Pod::Coverage 1.04';
+    plan skip_all => 'Test::Pod::Coverage 1.04' if $@;
+
+    eval 'use Pod::Coverage 0.14';
+    plan skip_all => 'Pod::Coverage 0.14 not installed' if $@;
+};
+
+my $trustme = {
+    trustme => [qr/^(g|s)et_component_class$/]
+};
+
+all_pod_coverage_ok($trustme);


Property changes on: trunk/DBIx-Class-UUIDColumns/t/pod_coverage.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/pod_spelling.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/pod_spelling.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/pod_spelling.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,32 +1,32 @@
-#!perl -w
-# $Id: pod_spelling.t 3235 2007-05-05 16:23:08Z claco $
-use strict;
-use warnings;
-
-BEGIN {
-    use lib 't/lib';
-    use DBIC::Test;
-
-    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
-
-    eval 'use Test::Spelling 0.11';
-    plan skip_all => 'Test::Spelling 0.11 not installed' if $@;
-};
-
-set_spell_cmd('aspell list');
-
-add_stopwords(<DATA>);
-
-all_pod_files_spelling_ok();
-
-__DATA__
-uuid
-uuids
-Chia
-liang
-Kao
-Laco
-OpenBSD
-UUIDMaker
-behaviour
-isa
+#!perl -w
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+    use lib 't/lib';
+    use DBIC::Test;
+
+    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+    eval 'use Test::Spelling 0.11';
+    plan skip_all => 'Test::Spelling 0.11 not installed' if $@;
+};
+
+set_spell_cmd('aspell list');
+
+add_stopwords(<DATA>);
+
+all_pod_files_spelling_ok();
+
+__DATA__
+uuid
+uuids
+Chia
+liang
+Kao
+Laco
+OpenBSD
+UUIDMaker
+behaviour
+isa


Property changes on: trunk/DBIx-Class-UUIDColumns/t/pod_spelling.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/pod_syntax.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/pod_syntax.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/pod_syntax.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,16 +1,16 @@
-#!perl -wT
-# $Id: pod_syntax.t 3236 2007-05-05 16:24:35Z claco $
-use strict;
-use warnings;
-
-BEGIN {
-    use lib 't/lib';
-    use DBIC::Test;
-
-    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
-
-    eval 'use Test::Pod 1.00';
-    plan skip_all => 'Test::Pod 1.00 not installed' if $@;
-};
-
-all_pod_files_ok();
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+    use lib 't/lib';
+    use DBIC::Test;
+
+    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+    eval 'use Test::Pod 1.00';
+    plan skip_all => 'Test::Pod 1.00 not installed' if $@;
+};
+
+all_pod_files_ok();


Property changes on: trunk/DBIx-Class-UUIDColumns/t/pod_syntax.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/sql/test.sqlite.sql
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/sql/test.sqlite.sql	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/sql/test.sqlite.sql	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,3 +1,3 @@
-CREATE TABLE test (
-  id VARVHAR(36) PRIMARY KEY NOT NULL
-);
+CREATE TABLE test (
+  id VARVHAR(36) PRIMARY KEY NOT NULL
+);


Property changes on: trunk/DBIx-Class-UUIDColumns/t/sql/test.sqlite.sql
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/strict.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/strict.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/strict.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,53 +1,53 @@
-#!perl -wT
-# $Id: strict.t 3236 2007-05-05 16:24:35Z claco $
-use strict;
-use warnings;
-
-BEGIN {
-    use lib 't/lib';
-    use DBIC::Test;
-    use File::Find;
-    use File::Basename;
-
-    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
-
-    eval 'use Test::Strict';
-    plan skip_all => 'Test::Strict not installed' if $@;
-    plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
-};
-
-## I hope this can go away if Test::Strict or File::Find::Rule
-## finally run under -T. Until then, I'm on my own here. ;-)
-my @files;
-my %trusted = (
-
-);
-
-find({  wanted => \&wanted,
-        untaint => 1,
-        untaint_pattern => qr|^([-+@\w./]+)$|,
-        untaint_skip => 1,
-        no_chdir => 1
-}, qw(lib t));
-
-sub wanted {
-    my $name = $File::Find::name;
-    my $file = fileparse($name);
-
-    return if $name =~ /TestApp/;
-
-    if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
-        push @files, $name;
-    };
-};
-
-if (scalar @files) {
-    plan tests => scalar @files;
-} else {
-    plan tests => 1;
-    fail 'No perl files found for Test::Strict checks!';
-};
-
-foreach (@files) {
-    strict_ok($_);
-};
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+    use lib 't/lib';
+    use DBIC::Test;
+    use File::Find;
+    use File::Basename;
+
+    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+    eval 'use Test::Strict';
+    plan skip_all => 'Test::Strict not installed' if $@;
+    plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
+};
+
+## I hope this can go away if Test::Strict or File::Find::Rule
+## finally run under -T. Until then, I'm on my own here. ;-)
+my @files;
+my %trusted = (
+
+);
+
+find({  wanted => \&wanted,
+        untaint => 1,
+        untaint_pattern => qr|^([-+@\w./]+)$|,
+        untaint_skip => 1,
+        no_chdir => 1
+}, qw(lib t));
+
+sub wanted {
+    my $name = $File::Find::name;
+    my $file = fileparse($name);
+
+    return if $name =~ /TestApp/;
+
+    if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
+        push @files, $name;
+    };
+};
+
+if (scalar @files) {
+    plan tests => scalar @files;
+} else {
+    plan tests => 1;
+    fail 'No perl files found for Test::Strict checks!';
+};
+
+foreach (@files) {
+    strict_ok($_);
+};


Property changes on: trunk/DBIx-Class-UUIDColumns/t/strict.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/style_no_tabs.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/style_no_tabs.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/style_no_tabs.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,16 +1,16 @@
-#!perl -wT
-# $Id: style_no_tabs.t 3236 2007-05-05 16:24:35Z claco $
-use strict;
-use warnings;
-
-BEGIN {
-    use lib 't/lib';
-    use DBIC::Test;
-
-    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
-
-    eval 'use Test::NoTabs 0.03';
-    plan skip_all => 'Test::NoTabs 0.03 not installed' if $@;
-};
-
-all_perl_files_ok('lib');
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+    use lib 't/lib';
+    use DBIC::Test;
+
+    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+    eval 'use Test::NoTabs 0.03';
+    plan skip_all => 'Test::NoTabs 0.03 not installed' if $@;
+};
+
+all_perl_files_ok('lib');


Property changes on: trunk/DBIx-Class-UUIDColumns/t/style_no_tabs.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/uuid.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/uuid.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/uuid.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,5 +1,5 @@
 #!perl -wT
-# $Id: basic.t 3235 2007-05-05 16:23:08Z claco $
+# $Id$
 use strict;
 use warnings;
 


Property changes on: trunk/DBIx-Class-UUIDColumns/t/uuid.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

Modified: trunk/DBIx-Class-UUIDColumns/t/warnings.t
===================================================================
--- trunk/DBIx-Class-UUIDColumns/t/warnings.t	2007-05-06 00:54:31 UTC (rev 3245)
+++ trunk/DBIx-Class-UUIDColumns/t/warnings.t	2007-05-06 00:59:25 UTC (rev 3246)
@@ -1,53 +1,53 @@
-#!perl -wT
-# $Id: warnings.t 3236 2007-05-05 16:24:35Z claco $
-use strict;
-use warnings;
-
-BEGIN {
-    use lib 't/lib';
-    use DBIC::Test;
-    use File::Find;
-    use File::Basename;
-
-    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
-
-    eval 'use Test::Strict 0.05';
-    plan skip_all => 'Test::Strict 0.05 not installed' if $@;
-    plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
-};
-
-## I hope this can go away if Test::Strict or File::Find::Rule
-## finally run under -T. Until then, I'm on my own here. ;-)
-my @files;
-my %trusted = (
-
-);
-
-find({  wanted => \&wanted,
-        untaint => 1,
-        untaint_pattern => qr|^([-+@\w./]+)$|,
-        untaint_skip => 1,
-        no_chdir => 1
-}, qw(lib t));
-
-sub wanted {
-    my $name = $File::Find::name;
-    my $file = fileparse($name);
-
-    return if $name =~ /TestApp/;
-
-    if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
-        push @files, $name;
-    };
-};
-
-if (scalar @files) {
-    plan tests => scalar @files;
-} else {
-    plan tests => 1;
-    fail 'No perl files found for Test::Strict checks!';
-};
-
-foreach (@files) {
-   warnings_ok($_);
-};
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+    use lib 't/lib';
+    use DBIC::Test;
+    use File::Find;
+    use File::Basename;
+
+    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+    eval 'use Test::Strict 0.05';
+    plan skip_all => 'Test::Strict 0.05 not installed' if $@;
+    plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
+};
+
+## I hope this can go away if Test::Strict or File::Find::Rule
+## finally run under -T. Until then, I'm on my own here. ;-)
+my @files;
+my %trusted = (
+
+);
+
+find({  wanted => \&wanted,
+        untaint => 1,
+        untaint_pattern => qr|^([-+@\w./]+)$|,
+        untaint_skip => 1,
+        no_chdir => 1
+}, qw(lib t));
+
+sub wanted {
+    my $name = $File::Find::name;
+    my $file = fileparse($name);
+
+    return if $name =~ /TestApp/;
+
+    if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
+        push @files, $name;
+    };
+};
+
+if (scalar @files) {
+    plan tests => scalar @files;
+} else {
+    plan tests => 1;
+    fail 'No perl files found for Test::Strict checks!';
+};
+
+foreach (@files) {
+   warnings_ok($_);
+};


Property changes on: trunk/DBIx-Class-UUIDColumns/t/warnings.t
___________________________________________________________________
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native




More information about the Bast-commits mailing list