<?xml version="1.0" encoding="windows-1252"?>
<node id="356149" title="Re: Re: Re: Tripwire tests and future-proofing" created="2004-05-25 05:40:41" updated="2005-07-04 19:37:19">
<type id="11">
note</type>
<author id="228394">
zby</author>
<data>
<field name="doctext">
From [cpan://Test::More]: 
&lt;code&gt;
ok($this eq $that, $test_name);
&lt;/code&gt;
&lt;blockquote&gt;
This simply evaluates any expression ($this eq $that is just a simple example) and uses that to determine if the test succeeded or failed. A true expression passes, a false one fails. Very simple.
&lt;/blockquote&gt;
So it's not exactly what you describe.
&lt;p&gt;
Additionally a list in scalar context returns it's last value not the number of it's elements.  So your explanation of what happens after the &lt;code&gt;keys&lt;/code&gt; function is not right.
&lt;p&gt;
&lt;b&gt;Update:&lt;/b&gt;
&lt;strike&gt;
&lt;code&gt;
$ perl -e '%h = (1, 1, 1, 1); print scalar keys %h, "\n"'
1
&lt;/code&gt;
&lt;/strike&gt;
&lt;code&gt;
$ perl -e 'print scalar (1, "a"), "\n";'
a
&lt;/code&gt;
</field>
<field name="root_node">
356122</field>
<field name="parent_node">
356147</field>
</data>
</node>
