#!perl -w
#______________________________________________________________________
# Symbolic algebra: examples: constants.
# PhilipRBrenan@yahoo.com, 2004, Perl License.
#______________________________________________________________________

use Math::Algebra::Symbols symbols=>'S';
use Test::Simple tests=>2;

my ($i, $pi) = S(qw(i pi));

ok(  exp($i*$pi)  ==   -1  );
ok(  exp($i*$pi) <=>  '-1' );