#!/usr/local/bin/perl -w
###########################################
# bball-suite
# Mike Schilli, 2009 (m@perlmeister.com)
###########################################
use strict;
use Sysadm::Install qw(:all);
use Test::More;

plan tests => 202;

for my $floor (0..100) {
  my($stdout, $stderr, $rc) = 
              tap "bball-drop", $floor;

  if($stderr =~ /floor: (\d+) \((\d+)/) {
     my($result, $tries) = ($1, $2);

     is($floor, $result, 
        "result: $result $tries");
     ok($tries <= 15, 
        "result: $result $tries");
  } else {
      die "Unmatched: $stderr";
  }
}