The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

SVW / DBIx-Migration-0.18 / t / 07-cli.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
use strict;
use warnings;
use Test::More import => [ qw( BAIL_OUT is ok plan subtest use_ok ) ], tests => 13;
use Test::Output qw( stderr_like stdout_is stdout_like );
use Path::Tiny qw( cwd tempdir );
use POSIX      qw( EXIT_FAILURE EXIT_SUCCESS );
my $module;
BEGIN {
  $module = 'DBIx::Migration::CLI';
  use_ok( $module ) or BAIL_OUT "Cannot load module '$module'!";
}
ok my $coderef = $module->can( 'run' ), 'has "run" subroutine';
subtest '-V' => sub {
  plan tests => 2;
  my $got_exitval;
  stdout_is { $got_exitval = $coderef->( '-V' ) } "Version:\n  0.18\n\n", 'check stdout';
  is $got_exitval, EXIT_SUCCESS, 'check exit value';
};
subtest '-h' => sub {
  plan tests => 2;
  my $got_exitval;
  stdout_like { $got_exitval = $coderef->( '-h' ) } qr/\AUsage:.+Options:.+Arguments:.+/s, 'check stdout';
  is $got_exitval, EXIT_SUCCESS, 'check exit value';
};
subtest 'missing mandatory arguments' => sub {
  plan tests => 2;
  my $got_exitval;
  stderr_like { $got_exitval = $coderef->() } qr/\AMissing mandatory arguments\nUsage:.+/s, 'check stderr';
  is $got_exitval, 2, 'check exit value';
};
subtest 'unknown option' => sub {
  plan tests => 2;
  my $got_exitval;
  stderr_like { $got_exitval = $coderef->( '-g' ) } qr/\AUnknown option: g\nUsage:.+/s, 'check stderr';
  is $got_exitval, 2, 'check exit value';
};
subtest 'missing database file' => sub {
  plan tests => 2;
  my $got_exitval;
  stderr_like { $got_exitval = $coderef->( 'dbi:SQLite:dbname=./t/missing/test.db' ) }
  qr/unable to open database file.+\nUsage:.+/s, 'check stderr';
  is $got_exitval, 2, 'check exit value';
};
my $tempdir = tempdir( CLEANUP => 1 );
my $dsn     = 'dbi:SQLite:dbname=' . $tempdir->child( 'test.db' );
subtest 'version is undefined' => sub {
  plan tests => 2;
  my $got_exitval;
  stdout_is { $got_exitval = $coderef->( $dsn ) } "\n", 'check stdout';
  is $got_exitval, 0, 'check exit value';
};
my $dir = cwd->child( qw( t sql basic ) );
subtest 'migrate to version 0' => sub {
  plan tests => 2;
  my $got_exitval;
  stdout_is { $got_exitval = $coderef->( $dsn, $dir, 0 ) } '', 'check stdout';
  is $got_exitval, 0, 'check exit value';
};
subtest 'version is 0' => sub {
  plan tests => 2;
  my $got_exitval;
  stdout_is { $got_exitval = $coderef->( $dsn ) } "0\n", 'check stdout';
  is $got_exitval, 0, 'check exit value';
};
subtest 'migrate to latest version' => sub {
  plan tests => 2;
  my $got_exitval;
  stdout_is { $got_exitval = $coderef->( $dsn, $dir ) } '', 'check stdout';
  is $got_exitval, 0, 'check exit value';
};
subtest 'version is latest' => sub {
  plan tests => 2;
  my $got_exitval;
  stdout_is { $got_exitval = $coderef->( $dsn ) } "2\n", 'check stdout';
  is $got_exitval, 0, 'check exit value';
};
subtest 'migrate to missing version' => sub {
  plan tests => 2;
  my $got_exitval;
  stdout_is { $got_exitval = $coderef->( $dsn, $dir, 3 ) } '', 'check stdout';
  is $got_exitval, 1, 'check exit value';
};