Automated Testing

Test code does not have to be robust

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

Some sources of error do arise, but that's OK
- The code above fails to detect if $rec has too many fields
  - But that is the responsibility of some other test
- The code above fails to detect if netmon matches too many records
  - But that is the responsibility of some other test