Lines Matching refs:fn
42 my $fn = {
54 is($schema_v1->ddl_filename('MySQL', '1.0', $ddl_dir), $fn->{v1}, 'Filename creation working');
55 unlink( $fn->{v1} ) if ( -e $fn->{v1} );
58 ok(-f $fn->{v1}, 'Created DDL file');
70 unlink($fn->{v2});
71 unlink($fn->{trans_v12});
76 ok(-f $fn->{trans_v12}, 'Created DDL file');
93 qr/Overwriting existing DDL file - $fn->{v2}/,
94 qr/Overwriting existing diff file - $fn->{trans_v12}/,
126 unlink($fn->{v3});
127 unlink($fn->{trans_v23});
132 ok(-f $fn->{trans_v23}, 'Created DDL 2.0 -> 3.0 file');
218 unlink $_ for (values %$fn);