plan skip_all => 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test'
unless ($dsn && $dbuser);
-plan tests => 6;
-
my $schema = DBICTest::Schema->connection($dsn, $dbuser, $dbpass, { AutoCommit => 1 });
my $dbh = $schema->storage->dbh;
$schema->txn_rollback;
});
}
+
+ # create with blob from $rs
+ $new = $rs->create({});
+ is($new->bytea, $big_long_string, 'Object has bytea value from $rs');
+ $new->discard_changes;
+ is($new->bytea, $big_long_string, 'bytea value made it to db');
}
-$dbh->do("DROP TABLE bindtype_test");
+done_testing;
+
+eval { $dbh->do("DROP TABLE bindtype_test") };
+