#!/usr/bin/perl
#

# Test program to push position variables into shared memory
# and make sure it got there.
# 

require "./poslib.pl";


pushpos(5,15,45);


main {
  while (1) {
    my ($x,$y,$theta) = poppos();
    print "checking x=" . $x . " ,y=" . $y . ", and theta=" . $theta . "\n\n";
    sleep 3;
  }

}