X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F73oracle.t;fp=t%2F73oracle.t;h=f6da1a1494ae08acca985f0f1fceb137a33c7c74;hb=7392e32b3c9d044ebe4caf301bc72bc4ba6dc413;hp=a8a1e7000f7698dddc7909364de2930b18b864a6;hpb=f8135512c346d8cb6f3dc569f4bb11576e85f97b;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/73oracle.t b/t/73oracle.t
index a8a1e70..f6da1a1 100644
--- a/t/73oracle.t
+++ b/t/73oracle.t
@@ -201,6 +201,13 @@ sub _run_tests {
     like ($seq, qr/\.${q}artist_pk_seq${q}$/, 'Correct PK sequence selected for sqlt-like trigger');
   }
 
+  lives_ok {
+    $new = $schema->resultset('Artist')->create({});
+    $new->discard_changes;
+    ok $new->artistid, 'Created row has id'
+  } 'Create with empty hashref works';
+
+
 # test LIMIT support
   for (1..6) {
     $schema->resultset('Artist')->create({ name => 'Artist ' . $_ });