File: | t/database-mode.t |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | #!/usr/bin/env perl | ||||||
2 | |||||||
3 | 1 1 1 | 102 9 11 | use strict; | ||||
4 | 1 1 1 | 10 3 10 | use warnings; | ||||
5 | 1 1 1 | 109 5 18 | use Test::More tests => 2; | ||||
6 | 1 1 1 | 87 4 16 | use FindBin qw($Bin); | ||||
7 | 1 1 1 | 78 4 16 | use File::Spec::Functions; | ||||
8 | |||||||
9 | 1 | 11 | $ENV{APP_ROOT} = catfile($Bin, "app2"); | ||||
10 | |||||||
11 | 1 1 1 | 76 6 17 | use Railsish::Database; | ||||
12 | |||||||
13 | { | ||||||
14 | 1 1 | 4 11 | my $db = Railsish::Database->new; | ||||
15 | 1 | 10 | like($db->config->{dsn}, qr/SQLite/); | ||||
16 | } | ||||||
17 | |||||||
18 | 1 | 73 | $ENV{RAILSISH_MODE} = "test"; | ||||
19 | |||||||
20 | { | ||||||
21 | 1 1 | 4 15 | my $db = Railsish::Database->new; | ||||
22 | 1 | 10 | is($db->config->{dsn}, "hash"); | ||||
23 | } |