# Copyright (c) 2007-2016 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: 15_deprecation.t 128 2016-07-28 13:26:37Z demetri $

# Checking deprecation of interface extension Math::Polynomial::Generic.

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl t/15_deprecation.t'

#########################

use strict;
use warnings;
use Test;
BEGIN { plan tests => 5 };

#########################

my $loaded = eval { require Math::Polynomial::Generic };
ok($loaded);

my $warning = 'none';
$SIG{__WARN__} = sub { $warning = $_[0] };

my $x = Math::Polynomial::Generic::X();
ok(ref($x), 'Math::Polynomial::Generic');
ok($warning =~ /^Math::Polynomial::Generic is deprecated/);

$warning = 'none';
Math::Polynomial::Generic->import(qw(X));
ok($warning =~ /^Math::Polynomial::Generic is deprecated/);

$warning = 'none';
Math::Polynomial::Generic->import(qw(:legacy X));
ok($warning, 'none');

__END__