Changeset 2513

Show
Ignore:
Timestamp:
06/05/08 18:08:50 (20 months ago)
Author:
mpaschal
Message:

Test creation and destruction of sequences
BugzID: 79950

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/release-39/t/ddl-tests.pl

    r2512 r2513  
    157157} 
    158158 
     159sub _03_create_sequence : Tests(2) { 
     160    my $self = shift; 
     161 
     162    my $driver    = MT::Object->dbi_driver; 
     163    my $dbh       = $driver->rw_handle; 
     164    my $ddl_class = $driver->dbd->ddl_class; 
     165 
     166    $ddl_class->create_sequence('Ddltest'); 
     167    pass('Created Ddltest sequence without dying'); 
     168 
     169    $ddl_class->drop_sequence('Ddltest'); 
     170    $ddl_class->create_sequence('Ddltest'); 
     171    pass('Recreated Ddltest sequence after drop without dying'); 
     172} 
     173 
    159174sub _def { 
    160175    my ($auto, $not_null, $type, $size) = @_;