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");

But what if the grep process doesn't work or the file is unreadable?
- Then the test will fail
- That's what should happen!
Similarly:
- What if netmon is missing from the database?
- What if the record has too few fields?