This distribution has been tested as part of the cpan-testers
effort to test as many new uploads to CPAN as possible. See
http://testers.cpan.org/

--
Dear Petr Pajas,

This is a computer-generated report for XML-XSH-1.8.2
on perl 5.10.0, created by CPAN-Reporter-1.17.

Thank you for uploading your work to CPAN. Congratulations!
All tests were successful.

Sections of this report:

* Tester comments
* Program output
* Prerequisites
* Environment and other context

------------------------------
TESTER COMMENTS
------------------------------

Additional comments from tester:

this report is from an automated smoke testing program
and was not reviewed by a human for accuracy

------------------------------
PROGRAM OUTPUT
------------------------------

Output from '/usr/bin/make test':

PERL_DL_NONLAZY=1 /export/home/cpantest/perl5/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01basic....Subroutine XML::LibXML::NodeList::("" redefined at /export/home/cpantest/perl5/lib/5.10.0/overload.pm line 23.

[[ list; ]]

Found 1 node(s).

[[ list | wc 1>&2 ]]

Found 1 node(s).
2 4 50

[[ count /; ]]

[[ insert element foo into /*; ]]

[[ count count(//foo)>0; ]]

[[ assign $bar=0; ]]

[[ count $bar=0; ]]

[[ while count(//foo)<10 { insert element "
[[ count count(//foo)=10; ]]

[[ insert attribute bar=8 into //foo[3] ]]

[[ count count(//foo[@bar="8"])=2; ]]

[[ map { $_=1 } //foo[3]/@bar ]]

[[ count count(//foo[@count and @bar=string(@count)-1])>0; ]]

[[ perl { 1+1; }; ]]

[[ exec ls -l; ]]

[[ ! echo -n " sh test: "; echo " (success)"; ]]

[[ clone t=scratch; ]]
duplicating scratch=new_document1.xml
done.

[[ list | wc 1>&2; ]]

Found 1 node(s).
2 4 62

[[ def myfunc { defs; encoding iso-8859-2; }; ]]

[[ call myfunc; ]]

[[ files; ]]

[[ foreach scratch://foo { insert text "no. " into .; copy ./@bar append ./text() }; ]]

[[ indent 1; ]]

[[ ls //foo | cat 1>&2; ]]

Found 10 node(s).
no.
no. 0
no. 1
no. 2
no. 3
no. 4
no. 5
no. 6
no. 7
no. 8

[[ ls //foo/text()[starts-with(.,'no. 8')] | cat 1>&2; ]]

Found 1 node(s).
no. 8

[[ if count(//foo/text()[starts-with(.,'no. 8')])!=1 { eval die }; ]]

[[ map $_=uc //foo/text(); ]]

[[ unless count(//foo/text()[starts-with(.,'NO. 8')])=1 { eval die }; ]]

[[ map { $_=join "",reverse split "",$_; } //foo; ]]

[[ count count(//oof)=10 ]]

[[ if 1+1!=2 { eval die } else { unless (1+2!=3) { eval 1 } else { eval die } }; ]]

[[ if 1+1=2 { unless 1+2=3 { eval die } else { eval 1 } } else { eval die }; ]]

[[ test-mode; eval die; ]]

[[ run-mode; ]]

[[ ls scratch://oof[not(@bar)] | cat 1>&2 ]]

Found 1 node(s).
NO.

[[ move scratch://oof[not(@bar)] into t://foo[@bar='1']; ]]

[[ count scratch:count(/scratch/oof)=9; ]]

[[ ls t:/scratch/foo[@bar='1'] | cat 1>&2 ]]

Found 1 node(s).

NO.


[[ count t:count(/scratch/foo/oof)=1; ]]

[[ locate //oof | cat 1>&2 ]]

Found 9 node(s).
/scratch/oof[1]
/scratch/oof[2]
/scratch/oof[3]
/scratch/oof[4]
/scratch/oof[5]
/scratch/oof[6]
/scratch/oof[7]
/scratch/oof[8]
/scratch/oof[9]

[[ cd t:/scratch/foo/oof/text() ]]

[[ pwd | cat 1>&2 ]]
/scratch/foo[3]/oof/text()

[[ remove t://oof; ]]
1 node(s) removed from t=new_document1.xml

[[ pwd | cat 1>&2 ]]
/scratch/foo[3]

[[ count t:count(/scratch/foo/oof)=0; ]]

[[ select scratch; ]]

[[ count t:count(//foo)=10; ]]

[[ create new1 test ]]

[[ count count(//*)=1; ]]

[[ list / | cat 1>&2; ]]

Found 1 node(s).



[[ create new2
"



]>

My test document
is quite nice and
simple.

" ]]

[[ count id('root1');
count //root;
count count(//br)=2;
count //text()[contains(.,'simple')]; ]]

[[ dtd | cat 1>&2; ]]



]>

[[ valid; ]]
SCHEMA
SCHEMA

[[ validate; ]]
SCHEMA
SCHEMA

[[ list | cat 1>&2 ]]

Found 1 node(s).




]>
...

[[ xinsert element silly after //br ]]

[[ list / | cat 1>&2 ]]

Found 1 node(s).




]>

My test document
is quite nice and
simple.


[[ count count(//br[./following-sibling::silly])=2 ]]

[[ ls scratch:/ | cat 1>&2;
ls t:/ | cat 1>&2;
ls new1:/ | cat 1>&2;
ls new2:/ | cat 1>&2 ]]

Found 1 node(s).


NO. 0
NO. 1
NO. 2
NO. 3
NO. 4
NO. 5
NO. 6
NO. 7
NO. 8


Found 1 node(s).














Found 1 node(s).



Found 1 node(s).




]>

My test document
is quite nice and
simple.


[[ select t ]]

[[ close t ]]

[[ ls / | cat 1>&2
]]

Found 1 node(s).


NO. 0
NO. 1
NO. 2
NO. 3
NO. 4
NO. 5
NO. 6
NO. 7
NO. 8


ok
t/02gdome....skipped: (no reason given)
t/03copy.....Subroutine XML::LibXML::NodeList::("" redefined at /export/home/cpantest/perl5/lib/5.10.0/overload.pm line 23.

[[
indent 1; ]]

[[ create t test; ]]

[[ insert chunk "abc" into t:/test; ]]

[[ insert chunk "zzz" into t:/test; ]]

[[ $expect='abczzz'; ]]

[[ if { xml_list('t:/test') ne $expect } {
perl { die "Resulting XML does not match what was expected:\n".
xml_list('t:/test').
"\nversus\n".
"$expect\n"
}
} ]]

[[ foreach (/test/x/@n|/test/x|/test/x/text()) {
insert attribute after_attribute=b after .;
copy /test/z after .;
insert text after_text after .;
insert pi after_pi after .;
insert comment after_comment after .;
insert chunk 'ab' after .;
} ]]
Warning: Ignoring incompatible nodes in insert/copy/move operation:
XML::LibXML::Attr after XML::LibXML::Element!
Use of uninitialized value $string in pattern match (m//) at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value in subroutine entry at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value $string in pattern match (m//) at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value in subroutine entry at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Warning: Ignoring incompatible nodes in insert/copy/move operation:
XML::LibXML::DocumentFragment after XML::LibXML::Attr!
Warning: Ignoring incompatible nodes in insert/copy/move operation:
XML::LibXML::Attr after XML::LibXML::Text!
Use of uninitialized value $string in pattern match (m//) at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value in subroutine entry at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Warning: Ignoring incompatible nodes in insert/copy/move operation:
XML::LibXML::Attr after XML::LibXML::Element!
Use of uninitialized value $string in pattern match (m//) at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value in subroutine entry at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value $string in pattern match (m//) at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value in subroutine entry at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Warning: Ignoring incompatible nodes in insert/copy/move operation:
XML::LibXML::DocumentFragment after XML::LibXML::Attr!
Warning: Ignoring incompatible nodes in insert/copy/move operation:
XML::LibXML::Attr after XML::LibXML::Element!
Use of uninitialized value $string in pattern match (m//) at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value in subroutine entry at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value $string in pattern match (m//) at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Use of uninitialized value in subroutine entry at /export/home/cpantest/perl5/lib/site_perl/5.10.0/i86pc-solaris-64int/XML/LibXML.pm line 1402.
Warning: Ignoring incompatible nodes in insert/copy/move operation:
XML::LibXML::DocumentFragment after XML::LibXML::Attr!

[[ ls /test 2 | cat 1>&2 ]]

Found 1 node(s).
abcafter_text.........abafter_textzzzabafter_textzzzabafter_textzzzzzz
ok
t/04flow.....Subroutine XML::LibXML::NodeList::("" redefined at /export/home/cpantest/perl5/lib/5.10.0/overload.pm line 23.

[[
def p_assert $cond
{
perl { xsh("unless {$cond} throw \"Assertion failed \$cond\"") }
} ]]

[[ $a=5;
call p_assert '$a == 5'; ]]

[[ try {
call p_assert '$a == 3';
throw "p_assert failed";
} catch local $err {
unless { $err eq 'Assertion failed $a == 3' } throw $err;
}; ]]

[[
# Perl based foreach
foreach { 1..3 } {
$a = $__;
last;
} ]]

[[ call p_assert '$a == 1'; ]]

[[ foreach { 1..3 } {
$b = 0;
$a = $__;
next;
$b = 1;
} ]]

[[ call p_assert '$a == 3'; ]]

[[ call p_assert '$b == 0'; ]]

[[ $a=0; $b=1; $c=0;
foreach { 1..3 } {
perl { $b = ($b+1) %% 2 };
echo $a $b | cat 1>&2;
$a = $a+1;
unless $b redo;
$c = 1;
} ]]
0 0
1 1
2 0
3 1
4 0
5 1

[[ call p_assert '$a == 6'; ]]

[[ call p_assert '$c == 1'; ]]

[[ # XPATH based foreach
insert chunk "" into /scratch;
cd scratch;
$a = ""; $b = ""; $c = ""; ]]

[[ ls; ]]

Found 1 node(s).

[[ $a=0;
foreach a {
$a = $a+1;
last;
} ]]

[[ call p_assert '$a == 1'; ]]

[[ $a=0;
foreach a {
$b = 0;
$a = $a+1;
next;
$b = 1;
} ]]

[[ call p_assert '$a == 3'; ]]

[[ call p_assert '$b == 0'; ]]

[[ $a=0; $b=1; $c=0;
foreach a {
perl { $b = ($b+1) %% 2 };
$a = $a+1;
unless $b redo;
$c = 1;
} ]]

[[ call p_assert '$a == 6'; ]]

[[ call p_assert '$c == 1'; ]]

[[ # Perl based while
$a=3;
while { $a } {
$a = $a-1;
last;
} ]]

[[ call p_assert '$a == 2'; ]]

[[ $a=0; $b=2;
while { $a<3 } {
$b = 0;
$a = $a+1;
next;
$b = 1;
} ]]

[[ call p_assert '$a == 3'; ]]

[[ call p_assert '$b == 0'; ]]

[[ $i=0; $a=0; $b=1; $c=0;
while { $i++<3 } {
perl { $b = ($b+1) %% 2 };
echo $a $b $i | cat 1>&2;
$a = $a+1;
unless $b redo;
$c = 1;
} ]]
0 0 1
1 1 1
2 0 2
3 1 2
4 0 3
5 1 3

[[ call p_assert '$i == 4'; ]]

[[ call p_assert '$a == 6'; ]]

[[ call p_assert '$c == 1'; ]]

[[ # XPATH based while
$a=3;
while ($a) {
$a = $a-1;
last;
} ]]

[[ call p_assert '$a == 2'; ]]

[[ $a=0; $b=2;
while ( $a<3 ) {
$b = 0;
$a = $a+1;
next;
$b = 1;
} ]]

[[ call p_assert '$a == 3'; ]]

[[ call p_assert '$b == 0'; ]]

[[ $i=0; $a=0; $b=1; $c=0;
while ( $i<3 ) {
perl { $b = ($b+1) %% 2 };
echo $a $b $i | cat 1>&2;
$a = $a+1;
unless $b redo;
$i=$i+1;
$c = 1;
} ]]
0 0 0
1 1 0
2 0 1
3 1 1
4 0 2
5 1 2

[[ call p_assert '$i == 3'; ]]

[[ call p_assert '$a == 6'; ]]

[[ call p_assert '$c == 1';
]]
ok
t/05misc.....Subroutine XML::LibXML::NodeList::("" redefined at /export/home/cpantest/perl5/lib/5.10.0/overload.pm line 23.

[[ def p_assert $cond
{ perl { xsh("unless {$cond} throw \"Assertion failed \$cond\"") } } ]]

[[ def x_assert $cond
{ perl { xsh("unless ($cond) throw \"Assertion failed \$cond\"") } } ]]

[[ call x_assert '/scratch'; ]]

[[ try {
call x_assert '/xyz';
throw "x_assert failed";
} catch local $err {
unless { $err eq 'Assertion failed /xyz' } throw $err;
}; ]]

[[ # rename
insert chunk '' into /scratch ]]

[[ call x_assert '/scratch/foo' ]]

[[ rename s/foo/xyz/ //* ]]

[[ call x_assert '/scratch/xyz' ]]

[[ rename { $_=uc($_) } /scratch/xyz/@bar ]]

[[ call x_assert '/scratch/xyz/@BAR' ]]

[[ rename { $_='abc' } /scratch/xyz/node() ]]

[[ call x_assert '/scratch/xyz/node()[name()="abc"]' ]]

[[ # sort
cd scratch ]]

[[ del node() ]]
1 node(s) removed from scratch=new_document1.xml

[[ call x_assert 'not(/scratch/node())' ]]

[[ insert chunk "" into . ]]

[[ %%nodes = * ]]

Stored 4 node(s).

[[ sort name() { $a cmp $b } %%nodes; ]]

[[ xmove %%nodes into .; ]]

[[ call p_assert 'xml_list(".") eq ""' ]]

[[ %%nodes = * ]]

Stored 4 node(s).

[[ sort substring(name(),2) { $a <=> $b } %%nodes; ]]

[[ xmove %%nodes into .; ]]

[[ call p_assert 'xml_list(".") eq ""'
]]
ok
All tests successful.
Files=5, Tests=150, 7 wallclock secs ( 0.09 usr 0.07 sys + 4.39 cusr 1.01 csys = 5.56 CPU)
Result: PASS

------------------------------
PREREQUISITES
------------------------------

Prerequisite modules loaded:

requires:

Module Need Have
------------------------- ----- -----
Parse::RecDescent 1.94 1.94
XML::LibXML 1.54 1.66
XML::LibXML::Iterator 0 1.04
XML::LibXML::XPathContext 0.04 1.66
! XML::LibXSLT 1.53 n/a
XML::XUpdate::LibXML 0.4.0 0.6.0

------------------------------
ENVIRONMENT AND OTHER CONTEXT
------------------------------

Environment variables:

AUTOMATED_TESTING = 1
LANG = en_US.UTF-8
PATH = /export/home/cpantest/perl5/bin:/usr/bin
PERL5LIB = /export/home/cpantest/.cpan/build/XML-XUpdate-LibXML-0.6.0-MGGDeD/blib/arch:/export/home/cpantest/...
PERL5OPT = -I/tmp/CPAN-Reporter-lib-9_3w -MDevel::Autoflush
PERL5_CPANPLUS_IS_RUNNING = 16645
PERL5_CPAN_IS_RUNNING = 16645
PERL5_CPAN_IS_RUNNING_IN_RECURSION = 1918,16645
PERL_CR_SMOKER_CURRENT = XML-XSH-1.8.2
PERL_MM_USE_DEFAULT = 1
SHELL = /bin/bash
TERM = vt100

Perl special variables (and OS-specific diagnostics, for MSWin32):

$^X = /export/home/cpantest/perl5/bin/perl
$UID/$EUID = 100 / 100
$GID = 1 1
$EGID = 1 1

Perl module toolchain versions installed:

Module Have
------------------- ---------
CPAN 1.92_64
Cwd 3.2701
ExtUtils::CBuilder 0.24
ExtUtils::Command 1.14
ExtUtils::Install 1.50
ExtUtils::MakeMaker 6.44
ExtUtils::Manifest 1.54
ExtUtils::ParseXS 2.19
File::Spec 3.2701
Module::Build 0.2808_01
Module::Signature n/a
Test::Harness 3.13
Test::More 0.80
YAML 0.66
YAML::Syck 1.05
version 0.76

--

Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
Platform:
osname=solaris, osvers=2.11, archname=i86pc-solaris-64int
uname='sunos open-solaris-noc 5.11 snv_95 i86pc i386 i86pc '
config_args='-Dcc=gcc -Dprefix=~/perl5 -Duse64bitint -d'
hint=recommended, useposix=true, d_sigaction=define
useithreads=undef, usemultiplicity=undef
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=undef, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc', ccflags ='-DPTR_IS_LONG -fno-strict-aliasing -pipe -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DPERL_USE_SAFE_PUTENV',
optimize='-O',
cppflags='-DPTR_IS_LONG -fno-strict-aliasing -pipe'
ccversion='', gccversion='3.4.3 (csl-sol210-3_4-20050802)', gccosandvers='solaris2.11'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='gcc', ldflags =' '
libpth=/usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -ldl -lm -lc
perllibs=-lsocket -lnsl -ldl -lm -lc
libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-fPIC', lddlflags='-G'