# Copyright (c) 2007-2009 Martin Becker. All rights reserved.
# This package is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# $Id: 10_math_complex.t 36 2009-06-08 11:51:03Z demetri $
# Checking coefficient space compatibility with Math::Complex.
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl t/10_math_complex.t'
#########################
use strict;
use warnings;
use Test;
BEGIN { plan tests => 2 };
use Math::Complex;
use Math::Polynomial 1.000;
ok(1); # 1
#########################
my $c0 = Math::Complex->new(0, 3);
my $c1 = Math::Complex->new(2, 1);
my $c2 = Math::Complex->new(1, -2);
my $x = Math::Complex->new(-1, 1);
my $y = Math::Complex->new(-7, 2);
my $p = Math::Polynomial->new($c0, $c1, $c2);
ok($p->evaluate($x) == $y); # 2
__END__