use strict;
use Test::More (tests => 2);
BEGIN
{
use_ok("R::Writer");
}
{
my $R = R::Writer->new();
$R->var(y => $R->expression('a * x ^ 2'));
is( $R->as_string(), qq|y <- expression("a * x ^ 2");\n|);
}
use strict;
use Test::More (tests => 2);
BEGIN
{
use_ok("R::Writer");
}
{
my $R = R::Writer->new();
$R->var(y => $R->expression('a * x ^ 2'));
is( $R->as_string(), qq|y <- expression("a * x ^ 2");\n|);
}