my  <at> rows = split /\n/, $_;
my $x = pop  <at> rows;

is(scalar( <at> $result), $n_courses, "test $.: one room per course");