my @bps = $t->break($nodes); is(@bps,2, "Found two breakpoints"); ok($bps[0]->{position} == 0 && $bps[0]->{ratio} == 0, "One is ok"); ok($bps[1]->{position} == 53 && $bps[1]->{ratio} == 53/12, "As is the other");
my @bps = $t->break($nodes); is(@bps,2, "Found two breakpoints"); ok($bps[0]->{position} == 0 && $bps[0]->{ratio} == 0, "One is ok"); ok($bps[1]->{position} == 53 && $bps[1]->{ratio} == 53/12, "As is the other");