8 |
|
|
9 |
=cut |
=cut |
10 |
|
|
11 |
use Jifty::Test tests => 8; |
use Jifty::Test tests => 11; |
12 |
|
|
13 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
14 |
|
|
15 |
use_ok('A3C::PHP'); |
use_ok('A3C::PHP'); |
16 |
|
|
17 |
|
$A3C::PHP::debug = 0; # mostly to prevent "used only once" warning |
18 |
$A3C::PHP::debug = 1 if @ARGV; |
$A3C::PHP::debug = 1 if @ARGV; |
19 |
|
|
20 |
ok( my $data = A3C::PHP->parse( << '__PHP_CONFIG__' |
ok( my $data = A3C::PHP->parse( << '__PHP_CONFIG__' |
24 |
|
|
25 |
$_baz = 'once'; |
$_baz = 'once'; |
26 |
$_baz = "twice"; |
$_baz = "twice"; |
27 |
|
|
28 |
|
$double_quoted = "this is \"quoted\" string"; |
29 |
|
$single_quoted = 'and \'another\' one'; |
30 |
?> |
?> |
31 |
__PHP_CONFIG__ |
__PHP_CONFIG__ |
32 |
), 'parse'); |
), 'parse'); |
33 |
|
|
34 |
diag dump( $data ); |
diag dump( $data ); |
35 |
is_deeply( $data, { _foo => 42, _bar => "is bar", _baz => "twice" }, 'correct' ); |
is_deeply( $data, { |
36 |
|
_foo => 42, |
37 |
|
_bar => "is bar", |
38 |
|
_baz => "twice", |
39 |
|
double_quoted => 'this is "quoted" string', |
40 |
|
single_quoted => "and 'another' one", |
41 |
|
}, 'correct' ); |
42 |
|
|
43 |
|
ok( my $config = Jifty->config->app('strix'), 'strix config' ); |
44 |
|
ok( my $dir = $config->{dir}, 'found strix dir' ); |
45 |
|
ok( -e $dir, "$dir exists" ); |
46 |
|
|
47 |
sub php2data { |
sub php2data { |
48 |
my ( $php_path, $expected ) = @_; |
my ( $php_path, $expected ) = @_; |
51 |
is_deeply( $data, $expected, 'correct' ); |
is_deeply( $data, $expected, 'correct' ); |
52 |
} |
} |
53 |
|
|
|
SKIP: { |
|
|
skip 'need function support', 1; |
|
|
php2data( 'data/strix/etc/cms-qa/conf.php' ); |
|
|
} |
|
|
|
|
|
php2data( 'data/strix/etc/new/conf.php' ); |
|
|
|
|
54 |
php2data( 't/test.php', |
php2data( 't/test.php', |
55 |
{ |
{ |
56 |
array1 => [123], |
array1 => [123], |
71 |
string2 => "Trenton, NJ", |
string2 => "Trenton, NJ", |
72 |
} |
} |
73 |
); |
); |
74 |
|
|
75 |
|
SKIP: { |
76 |
|
skip 'need function support', 1; |
77 |
|
php2data( "$dir/etc/cms-qa/conf.php" ); |
78 |
|
} |
79 |
|
|
80 |
|
php2data( "$dir/etc/new/conf.php", |
81 |
|
{ |
82 |
|
_dbname => "new", |
83 |
|
_dbserver => "localhost", |
84 |
|
_site_admin => "portal\@skole.hr", |
85 |
|
_site_is_root => 1, |
86 |
|
_site_name => "Otvaranje sitea \x{161}kole", |
87 |
|
_skole_external_uid => 0, |
88 |
|
} |
89 |
|
); |
90 |
|
|