#-*- perl -*-

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

use CSS::Janus;

my $self = CSS::Janus->new;
my $testcase;
my $shouldbe;

$testcase =
    ['body{direction:rtl;float:right}' . '.b2{direction:ltr;float:right}'];
$shouldbe =
    ['body{direction:ltr;float:left}' . '.b2{direction:ltr;float:left}'];
is_deeply($shouldbe, $self->ChangeLeftToRightToLeft($testcase));

