Next Automated Testing 17

Test code does not have to be robust

     my ($rec) = qx{ grep '^netmon:' $db_file };
     is((split(/:/, $rec))[3], "expired", "netmon user was expired");

Next Copyright © 2004 Mark Dominus