use strict;
use warnings;
use Test::More tests => 5;

use_ok('Math::Symbolic');
use_ok('Math::SymbolicX::NoSimplification');

my $f = Math::Symbolic->parse_from_string('2+3');
my $f_s = $f->simplify();

ok($f->is_identical($f_s), "Doesn't simplify.");

Math::SymbolicX::NoSimplification::do_simplify();

$f = Math::Symbolic->parse_from_string('2+3');
$f_s = $f->simplify();

ok(!$f->is_identical($f_s), "Does simplify.");

Math::SymbolicX::NoSimplification::dont_simplify();

$f = Math::Symbolic->parse_from_string('2+3');
$f_s = $f->simplify();

ok($f->is_identical($f_s), "Doesn't simplify.");