#!/usr/local/bin/perl
# perl による assert の例
#
# perl -d ファイル名 のあと n を実行し続けてみてください。
#
require 'assert.pl';

push(@x, "xgaga1");
push(@x, "xgaga2");
push(@x, "xgaga3");

push(@y, "ygaga1");
push(@y, "ygaga2");

# この行を入れると次の assert に失敗する
# push(@y, "ygaga3");  

&assert('@x > @y');

$var = 5;
$othervar = 10;
push(@various_info, "gaga1");
push(@various_info, "gaga2");
push(@various_info, "gaga3");

# 次の assert に失敗する
&assert('$var > 10', $var, $othervar, @various_info);

# end of file