| 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 | } | ||||||