Perl Makes Testing Easy Perl Testing #6

An Example

for each IDF room
    do ping the sensor
       if it's alive
          then query the sensor
               if temp >= 95 F
                  then report "toasty"
                  else report "nippy"
Copyright © 2006 Ian Langworth