DBIO-MSSQL

 view release on metacpan or  search on metacpan

t/10-mssql.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Test::Exception;
use Scalar::Util 'weaken';
use DBIO::Optional::Dependencies ();
use DBIO::Test;

my ($dsn, $user, $pass) = @ENV{map { "DBIO_TEST_MSSQL_${_}" } qw/DSN USER PASS/};

plan skip_all => 'Set $ENV{DBIO_TEST_MSSQL_DSN}, _USER and _PASS to run this test'
  unless ($dsn);


plan skip_all => 'Test needs ' . DBIO::Optional::Dependencies->req_missing_for ('test_rdbms_mssql_sybase')

t/10-mssql.t  view on Meta::CPAN

      eval { $dbh->do("DROP TABLE money_test") };
      $dbh->do(<<'SQL');
  CREATE TABLE money_test (
     id INT IDENTITY PRIMARY KEY,
     amount MONEY NULL
  )
SQL
   });

  my $rs = $schema->resultset('Money');
  weaken(my $rs_cp = $rs);  # nested closure refcounting is an utter mess in perl

  my $row;
  lives_ok {
    $row = $rs->create({ amount => 100 });
  } 'inserted a money value';

  cmp_ok $rs->find($row->id)->amount, '==', 100, 'money value round-trip';

  lives_ok {
    $row->update({ amount => 200 });

t/10-mssql.t  view on Meta::CPAN

      $rs->create({ amount => 1000 + $_ }) for (1..3);

      my $artist_rs = $schema->resultset('Artist')->search({
        name => { -like => 'Artist %' }
      });;

      $rs->next;

      my $map = [ ['Artist 1', '1002.00'], ['Artist 2', '1003.00'] ];

      weaken(my $a_rs_cp = $artist_rs);

      lives_and {
        my @results;

        $wrappers->{$wrapper}->( sub {
          while (my $money = $rs_cp->next) {
            my $artist = $a_rs_cp->next;
            push @results, [ $artist->name, $money->amount ];
          };
        });

t/20-mssql-core.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Test::Exception;
use Scalar::Util 'weaken';
use DBIO::Optional::Dependencies ();
use DBIO::Test;

my ($dsn, $user, $pass) = @ENV{map { "DBIO_TEST_MSSQL_${_}" } qw/DSN USER PASS/};

plan skip_all => 'Set $ENV{DBIO_TEST_MSSQL_DSN}, _USER and _PASS to run this test'
  unless ($dsn);


plan skip_all => 'Test needs ' . DBIO::Optional::Dependencies->req_missing_for ('test_rdbms_mssql_sybase')

t/20-mssql-core.t  view on Meta::CPAN

      eval { $dbh->do("DROP TABLE money_test") };
      $dbh->do(<<'SQL');
  CREATE TABLE money_test (
     id INT IDENTITY PRIMARY KEY,
     amount MONEY NULL
  )
SQL
   });

  my $rs = $schema->resultset('Money');
  weaken(my $rs_cp = $rs);  # nested closure refcounting is an utter mess in perl

  my $row;
  lives_ok {
    $row = $rs->create({ amount => 100 });
  } 'inserted a money value';

  cmp_ok $rs->find($row->id)->amount, '==', 100, 'money value round-trip';

  lives_ok {
    $row->update({ amount => 200 });

t/20-mssql-core.t  view on Meta::CPAN

      $rs->create({ amount => 1000 + $_ }) for (1..3);

      my $artist_rs = $schema->resultset('Artist')->search({
        name => { -like => 'Artist %' }
      });;

      $rs->next;

      my $map = [ ['Artist 1', '1002.00'], ['Artist 2', '1003.00'] ];

      weaken(my $a_rs_cp = $artist_rs);

      lives_and {
        my @results;

        $wrappers->{$wrapper}->( sub {
          while (my $money = $rs_cp->next) {
            my $artist = $a_rs_cp->next;
            push @results, [ $artist->name, $money->amount ];
          };
        });