use lib 't/lib';
use Test::More;
use TidierTests;
run_test( <<'RAW', <<'TIDIED', 'Simple class defn', '', );
class BankAccount {
has 'balance' => ( is => 'rw' );
}
RAW
class BankAccount {
has 'balance' => ( is => 'rw' );
}
TIDIED
run_test( <<'RAW', <<'TIDIED', 'Class defn with method', '', );
class BankAccount {
has 'balance' => ( is => 'rw' );
method deposit (Num $amount){
$self->inc_balance( $amount );
}
}
RAW
class BankAccount {
has 'balance' => ( is => 'rw' );
method deposit (Num $amount) {
$self->inc_balance($amount);
}
}
TIDIED
run_test( <<'RAW', <<'TIDIED', 'Multipart class', '', );
class A::Point {
has $!x is ro = 1 ;
}
RAW
class A::Point {
has $!x is ro = 1;
}
TIDIED
run_test( <<'RAW', <<'TIDIED', 'Class with attrs (GH#5)', '', );
class A::Point is dirty {
has $!x is ro = 1 ;
}
RAW
class A::Point is dirty {
has $!x is ro = 1;
}
TIDIED
done_testing;