785 lines
22 KiB
Text
785 lines
22 KiB
Text
perl-blead
|
|
==========
|
|
cpanm (App::cpanminus) 1.7043 on perl 5.026000 built for x86_64-linux
|
|
Work directory is /home/ryan/.cpanm/work/1493643632.26108
|
|
You have make /usr/bin/make
|
|
You have LWP 6.26
|
|
You have /bin/tar: tar (GNU tar) 1.29
|
|
Copyright (C) 2015 Free Software Foundation, Inc.
|
|
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
|
|
This is free software: you are free to change and redistribute it.
|
|
There is NO WARRANTY, to the extent permitted by law.
|
|
|
|
Written by John Gilmore and Jay Fenlason.
|
|
You have /usr/bin/unzip
|
|
Searching SQL::Interpolate () on cpanmetadb ...
|
|
! Finding SQL::Interpolate on cpanmetadb failed.
|
|
Searching SQL::Interpolate () on metacpan ...
|
|
Unpacking SQL-Interpolate-0.33.tar.gz
|
|
--> Working on SQL::Interpolate
|
|
Fetching http://www.cpan.org/authors/id/D/DM/DMANURA/SQL-Interpolate-0.33.tar.gz ... OK
|
|
SQL-Interpolate-0.33/
|
|
SQL-Interpolate-0.33/t/
|
|
SQL-Interpolate-0.33/t/macro.t
|
|
SQL-Interpolate-0.33/t/lib/
|
|
SQL-Interpolate-0.33/t/lib/DBD/
|
|
SQL-Interpolate-0.33/t/lib/DBD/Mock.pm
|
|
SQL-Interpolate-0.33/t/dbi_filter.t
|
|
SQL-Interpolate-0.33/t/dist.t
|
|
SQL-Interpolate-0.33/t/dbi_interp.t
|
|
SQL-Interpolate-0.33/t/lib.pl
|
|
SQL-Interpolate-0.33/t/pod-coverage.t
|
|
SQL-Interpolate-0.33/t/dbi.t
|
|
SQL-Interpolate-0.33/t/sql_interp.t
|
|
SQL-Interpolate-0.33/t/pod.t
|
|
SQL-Interpolate-0.33/t/filter.t
|
|
SQL-Interpolate-0.33/Changes
|
|
SQL-Interpolate-0.33/MANIFEST
|
|
SQL-Interpolate-0.33/META.yml
|
|
SQL-Interpolate-0.33/ex/
|
|
SQL-Interpolate-0.33/ex/nofilter.pl
|
|
SQL-Interpolate-0.33/ex/orders.pl
|
|
SQL-Interpolate-0.33/ex/dbi.pl
|
|
SQL-Interpolate-0.33/ex/filter.pl
|
|
SQL-Interpolate-0.33/lib/
|
|
SQL-Interpolate-0.33/lib/SQL/
|
|
SQL-Interpolate-0.33/lib/SQL/Interpolate.pm
|
|
SQL-Interpolate-0.33/lib/SQL/Interpolate/
|
|
SQL-Interpolate-0.33/lib/SQL/Interpolate/Macro.pm
|
|
SQL-Interpolate-0.33/lib/SQL/Interpolate/Filter.pm
|
|
SQL-Interpolate-0.33/lib/DBIx/
|
|
SQL-Interpolate-0.33/lib/DBIx/Interpolate.pm
|
|
SQL-Interpolate-0.33/Makefile.PL
|
|
SQL-Interpolate-0.33/Build.PL
|
|
SQL-Interpolate-0.33/README
|
|
Entering SQL-Interpolate-0.33
|
|
Checking configure dependencies from META.yml
|
|
Checking if you have Module::Build 0.38 ... Yes (0.4222)
|
|
Checking if you have ExtUtils::Install 1.46 ... Yes (2.04)
|
|
Running Build.PL
|
|
Configuring SQL-Interpolate-0.33 ... Created MYMETA.yml and MYMETA.json
|
|
Creating new 'Build' script for 'SQL-Interpolate' version '0.33'
|
|
Checking dependencies from MYMETA.json ...
|
|
OK
|
|
Building and testing SQL-Interpolate-0.33 ... Building SQL-Interpolate
|
|
t/dbi.t ........... ok
|
|
t/dbi_filter.t .... ok
|
|
t/dbi_interp.t .... ok
|
|
t/dist.t .......... ok
|
|
|
|
# Failed test 'INSERT inline hashref'
|
|
# at t/filter.t line 57.
|
|
# got: '[ 'INSERT INTO mytable ', { 'two' => 2, 'one' => 1 } ]'
|
|
# expected: '[ 'INSERT INTO mytable ', { 'one' => 1, 'two' => 2 } ]'
|
|
# Looks like you failed 1 test of 17.
|
|
t/filter.t ........
|
|
Dubious, test returned 1 (wstat 256, 0x100)
|
|
Failed 1/17 subtests
|
|
t/macro.t ......... ok
|
|
t/pod-coverage.t .. ok
|
|
t/pod.t ........... ok
|
|
|
|
# Failed test 'INSERT hashref of sql_var + sql() OO'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'INSERT INTO mytable (three, one, two) VALUES(3, ?, ?)'
|
|
# $expected->[0] = 'INSERT INTO mytable (one, three, two) VALUES(?, 3, ?)'
|
|
$VAR1 = [
|
|
'INSERT INTO mytable (three, one, two) VALUES(3, ?, ?)',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'INSERT INTO mytable (one, three, two) VALUES(?, 3, ?)',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
]
|
|
];
|
|
$VAR3 = 'INSERT hashref of sql_var + sql() OO';
|
|
|
|
# Failed test 'INSERT hashref of sql_var + sql() closure'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'INSERT INTO mytable (three, one, two) VALUES(3, ?, ?)'
|
|
# $expected->[0] = 'INSERT INTO mytable (one, three, two) VALUES(?, 3, ?)'
|
|
$VAR1 = [
|
|
'INSERT INTO mytable (three, one, two) VALUES(3, ?, ?)',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'INSERT INTO mytable (one, three, two) VALUES(?, 3, ?)',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
]
|
|
];
|
|
$VAR3 = 'INSERT hashref of sql_var + sql() closure';
|
|
|
|
# Failed test 'INSERT hashref with macro'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'INSERT INTO mytable (two, one) VALUES( ? * ?, ?)'
|
|
# $expected->[0] = 'INSERT INTO mytable (one, two) VALUES(?, ? * ?)'
|
|
$VAR1 = [
|
|
'INSERT INTO mytable (two, one) VALUES( ? * ?, ?)',
|
|
5,
|
|
5,
|
|
1
|
|
];
|
|
$VAR2 = [
|
|
'INSERT INTO mytable (one, two) VALUES(?, ? * ?)',
|
|
1,
|
|
5,
|
|
5
|
|
];
|
|
$VAR3 = 'INSERT hashref with macro';
|
|
|
|
# Failed test 'INSERT hashref with macro OO'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'INSERT INTO mytable (two, one) VALUES( ? * ?, ?)'
|
|
# $expected->[0] = 'INSERT INTO mytable (one, two) VALUES(?, ? * ?)'
|
|
$VAR1 = [
|
|
'INSERT INTO mytable (two, one) VALUES( ? * ?, ?)',
|
|
5,
|
|
5,
|
|
1
|
|
];
|
|
$VAR2 = [
|
|
'INSERT INTO mytable (one, two) VALUES(?, ? * ?)',
|
|
1,
|
|
5,
|
|
5
|
|
];
|
|
$VAR3 = 'INSERT hashref with macro OO';
|
|
|
|
# Failed test 'SET hashref of sql_var types, sql()'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'UPDATE mytable SET one=?, three=3, two= ?'
|
|
# $expected->[0] = 'UPDATE mytable SET three=3, one=?, two= ?'
|
|
$VAR1 = [
|
|
'UPDATE mytable SET one=?, three=3, two= ?',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'UPDATE mytable SET three=3, one=?, two= ?',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
]
|
|
];
|
|
$VAR3 = 'SET hashref of sql_var types, sql()';
|
|
|
|
# Failed test 'SET hashref of sql_var types, sql() OO'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'UPDATE mytable SET two= ?, one=?, three=3'
|
|
# $expected->[0] = 'UPDATE mytable SET three=3, one=?, two= ?'
|
|
$VAR1 = [
|
|
'UPDATE mytable SET two= ?, one=?, three=3',
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'UPDATE mytable SET three=3, one=?, two= ?',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[1][1]
|
|
]
|
|
];
|
|
$VAR3 = 'SET hashref of sql_var types, sql() OO';
|
|
|
|
# Failed test 'SET hashref of sql_var types, sql() closure'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'UPDATE mytable SET two= ?, one=?, three=3'
|
|
# $expected->[0] = 'UPDATE mytable SET three=3, one=?, two= ?'
|
|
$VAR1 = [
|
|
'UPDATE mytable SET two= ?, one=?, three=3',
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'UPDATE mytable SET three=3, one=?, two= ?',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[1][1]
|
|
]
|
|
];
|
|
$VAR3 = 'SET hashref of sql_var types, sql() closure';
|
|
|
|
# Failed test 'SET hashref of sql_var types, sql() closure2'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'UPDATE mytable SET two= ?, one=?, three=3'
|
|
# $expected->[0] = 'UPDATE mytable SET three=3, one=?, two= ?'
|
|
$VAR1 = [
|
|
'UPDATE mytable SET two= ?, one=?, three=3',
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'UPDATE mytable SET three=3, one=?, two= ?',
|
|
[
|
|
1,
|
|
bless( {
|
|
'value' => \1
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[1][1]
|
|
]
|
|
];
|
|
$VAR3 = 'SET hashref of sql_var types, sql() closure2';
|
|
|
|
# Failed test 'WHERE hashref sql()'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (y=2 AND x=?)'
|
|
# $expected->[0] = 'WHERE (x=? AND y=2)'
|
|
$VAR1 = [
|
|
'WHERE (y=2 AND x=?)',
|
|
1
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (x=? AND y=2)',
|
|
1
|
|
];
|
|
$VAR3 = 'WHERE hashref sql()';
|
|
|
|
# Failed test 'WHERE hashref of \$x, sql_var typed'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (x=? AND y= ?) AND z= ?'
|
|
# $expected->[0] = 'WHERE (y= ? AND x=?) AND z= ?'
|
|
$VAR1 = [
|
|
'WHERE (x=? AND y= ?) AND z= ?',
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (y= ? AND x=?) AND z= ?',
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR3 = 'WHERE hashref of \\$x, sql_var typed';
|
|
|
|
# Failed test 'WHERE hashref of \$x, sql_var typed OO'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (x=? AND y= ?) AND z= ?'
|
|
# $expected->[0] = 'WHERE (y= ? AND x=?) AND z= ?'
|
|
$VAR1 = [
|
|
'WHERE (x=? AND y= ?) AND z= ?',
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (y= ? AND x=?) AND z= ?',
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR3 = 'WHERE hashref of \\$x, sql_var typed OO';
|
|
|
|
# Failed test 'WHERE hashref of \$x, sql_var typed closure2'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (x=? AND y= ?) AND z= ?'
|
|
# $expected->[0] = 'WHERE (y= ? AND x=?) AND z= ?'
|
|
$VAR1 = [
|
|
'WHERE (x=? AND y= ?) AND z= ?',
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (y= ? AND x=?) AND z= ?',
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR3 = 'WHERE hashref of \\$x, sql_var typed closure2';
|
|
|
|
# Failed test 'WHERE hashref of arrayref of sql_var typed'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (y IN (?, ?) AND x=?)'
|
|
# $expected->[0] = 'WHERE (x=? AND y IN (?, ?))'
|
|
$VAR1 = [
|
|
'WHERE (y IN (?, ?) AND x=?)',
|
|
[
|
|
3,
|
|
bless( {
|
|
'value' => \3
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (x=? AND y IN (?, ?))',
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
3,
|
|
bless( {
|
|
'value' => \3
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
]
|
|
];
|
|
$VAR3 = 'WHERE hashref of arrayref of sql_var typed';
|
|
|
|
# Failed test 'WHERE hashref of arrayref of sql_var typed OO'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (y IN (?, ?) AND x=?)'
|
|
# $expected->[0] = 'WHERE (x=? AND y IN (?, ?))'
|
|
$VAR1 = [
|
|
'WHERE (y IN (?, ?) AND x=?)',
|
|
[
|
|
3,
|
|
bless( {
|
|
'value' => \3
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (x=? AND y IN (?, ?))',
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
3,
|
|
bless( {
|
|
'value' => \3
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
]
|
|
];
|
|
$VAR3 = 'WHERE hashref of arrayref of sql_var typed OO';
|
|
|
|
# Failed test 'WHERE hashref of arrayref of sql_var typed closure'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (y IN (?, ?) AND x=?)'
|
|
# $expected->[0] = 'WHERE (x=? AND y IN (?, ?))'
|
|
$VAR1 = [
|
|
'WHERE (y IN (?, ?) AND x=?)',
|
|
[
|
|
3,
|
|
bless( {
|
|
'value' => \3
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (x=? AND y IN (?, ?))',
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
3,
|
|
bless( {
|
|
'value' => \3
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
]
|
|
];
|
|
$VAR3 = 'WHERE hashref of arrayref of sql_var typed closure';
|
|
|
|
# Failed test 'WHERE hashref of arrayref of sql_var typed closure2'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (y IN (?, ?) AND x=?)'
|
|
# $expected->[0] = 'WHERE (x=? AND y IN (?, ?))'
|
|
$VAR1 = [
|
|
'WHERE (y IN (?, ?) AND x=?)',
|
|
[
|
|
3,
|
|
bless( {
|
|
'value' => \3
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'type' => 1,
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => \5
|
|
}, 'SQL::Interpolate::Variable' )
|
|
]
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (x=? AND y IN (?, ?))',
|
|
[
|
|
5,
|
|
bless( {
|
|
'value' => $VAR1->[2][1]{'value'}
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
3,
|
|
bless( {
|
|
'value' => \3
|
|
}, 'SQL::Interpolate::Variable' )
|
|
],
|
|
[
|
|
5,
|
|
$VAR1->[2][1]
|
|
]
|
|
];
|
|
$VAR3 = 'WHERE hashref of arrayref of sql_var typed closure2';
|
|
|
|
# Failed test 'WHERE hashref of \$x, sql()'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (x=? AND y=z)'
|
|
# $expected->[0] = 'WHERE (y=z AND x=?)'
|
|
$VAR1 = [
|
|
'WHERE (x=? AND y=z)',
|
|
5
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (y=z AND x=?)',
|
|
5
|
|
];
|
|
$VAR3 = 'WHERE hashref of \\$x, sql()';
|
|
|
|
# Failed test 'WHERE hashref of \$x, sql() OO'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'WHERE (x=? AND y=z)'
|
|
# $expected->[0] = 'WHERE (y=z AND x=?)'
|
|
$VAR1 = [
|
|
'WHERE (x=? AND y=z)',
|
|
5
|
|
];
|
|
$VAR2 = [
|
|
'WHERE (y=z AND x=?)',
|
|
5
|
|
];
|
|
$VAR3 = 'WHERE hashref of \\$x, sql() OO';
|
|
|
|
# Failed test 'v of identity_macro(h 2) closure'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'FROM (SELECT ? AS one, ? AS two) AS tbl0'
|
|
# $expected->[0] = 'FROM (SELECT ? AS two, ? AS one) AS tbl0'
|
|
$VAR1 = [
|
|
'FROM (SELECT ? AS one, ? AS two) AS tbl0',
|
|
1,
|
|
2
|
|
];
|
|
$VAR2 = [
|
|
'FROM (SELECT ? AS two, ? AS one) AS tbl0',
|
|
2,
|
|
1
|
|
];
|
|
$VAR3 = 'v of identity_macro(h 2) closure';
|
|
|
|
# Failed test 'v of identity_macro(h 2) closure2'
|
|
# at t/lib.pl line 36.
|
|
# Structures begin differing at:
|
|
# $got->[0] = 'FROM (SELECT ? AS one, ? AS two) AS tbl0'
|
|
# $expected->[0] = 'FROM (SELECT ? AS two, ? AS one) AS tbl0'
|
|
$VAR1 = [
|
|
'FROM (SELECT ? AS one, ? AS two) AS tbl0',
|
|
1,
|
|
2
|
|
];
|
|
$VAR2 = [
|
|
'FROM (SELECT ? AS two, ? AS one) AS tbl0',
|
|
2,
|
|
1
|
|
];
|
|
$VAR3 = 'v of identity_macro(h 2) closure2';
|
|
# Looks like you failed 20 tests of 262.
|
|
t/sql_interp.t ....
|
|
Dubious, test returned 20 (wstat 5120, 0x1400)
|
|
Failed 20/262 subtests
|
|
|
|
Test Summary Report
|
|
-------------------
|
|
t/filter.t (Wstat: 256 Tests: 17 Failed: 1)
|
|
Failed test: 12
|
|
Non-zero exit status: 1
|
|
t/sql_interp.t (Wstat: 5120 Tests: 262 Failed: 20)
|
|
Failed tests: 67-68, 70-71, 122-125, 134, 154-155, 157-163
|
|
245-246
|
|
Non-zero exit status: 20
|
|
Files=9, Tests=353, 2 wallclock secs ( 0.05 usr 0.00 sys + 0.54 cusr 0.02 csys = 0.61 CPU)
|
|
Result: FAIL
|
|
Failed 2/9 test programs. 21/353 subtests failed.
|
|
! Installing SQL::Interpolate failed. See /home/ryan/.cpanm/work/1493643632.26108/build.log for details. Retry with --force to force install it.
|
|
FAIL
|
|
Command [cpanm --reinstall --verbose SQL::Interpolate] terminated with exit code 1 ($? = 256) under the following perl environment:
|
|
Command terminated with non-zero status.
|
|
|
|
|
|
Current perl:
|
|
Name: perl-blead
|
|
Path: /home/ryan/perl5/perlbrew/perls/perl-blead/bin/perl
|
|
Config: -de -Dprefix=/home/ryan/perl5/perlbrew/perls/perl-blead -Dusedevel -Aeval:scriptdir=/home/ryan/perl5/perlbrew/perls/perl-blead/bin
|
|
Compiled at: Mar 30 2017 03:10:09
|
|
|
|
perlbrew:
|
|
version: 0.78
|
|
ENV:
|
|
PERLBREW_ROOT: /home/ryan/perl5/perlbrew
|
|
PERLBREW_HOME: /home/ryan/.perlbrew
|
|
PERLBREW_PATH: /home/ryan/perl5/perlbrew/bin:/home/ryan/perl5/perlbrew/perls/perl-blead/bin
|
|
PERLBREW_MANPATH: /home/ryan/perl5/perlbrew/perls/perl-blead/man
|