view release on metacpan or  search on metacpan

SkyX_Test.pl  view on Meta::CPAN

  $SX->sky6DataWizard->Path("$target");
  $SX->sky6DataWizard->Open();
  print "sky6DataWizardPath set to : " . $SX->sky6DataWizard->Path() . "\n";
  my $Result = $SX->sky6DataWizard->RunQuery;
  print "Query of sky6DataWizard complete.\n";
  sleep 1;
}

sub testsky6DirectGuide {
  print "Testing 100% of sky6DirectGuide module.\n";
  $SX->sky6DirectGuide->IAsynchronous(0);
  print "  IAsynchronous set to: " . $SX->sky6DirectGuide->IAsynchronous . "\n";
  $SX->sky6DirectGuide->MoveTelescope(900,900);
  print "Finished testing sky6DirectGuide module.\n";
  sleep 1;
}

sub testsky6MyFOVs {

  print "Testing sky6MyFOVs module.\n";

  my $PropCnt = 5;

SkyX_Test.pl  view on Meta::CPAN

  print "Finished testing sky6RASCOMTheSky module.\n";
  sleep 1;
}

sub testsky6RASCOMTele {
  my $target = shift;
  print "Testing sky6RASCOMTele module.\n";

#  Abort() - Not tested
#  CommutateMotors - Not tested.
  print "  Connecting to mount, Set Asynchronous mode off, and Unpark\n";
  $SX->sky6RASCOMTele->Connect();
  if ($SX->sky6RASCOMTele->IsConnected) { 
    print "  Connected to Telescope. \n";
  }else{
    print "  Did not connect to Telescope! \n";
  }
  $SX->sky6RASCOMTele->Asynchronous(0);
  $SX->sky6RASCOMTele->Unpark();
# DoCommand() - Not tested (I have a paramount)
  print "  Testing FindHome\n";
  $SX->sky6RASCOMTele->FindHome();
  print "  Home.\n";
  sleep 1; # Needed on some systems if issuing a slew
           # command immediatly after FindHome()
# Connect and move focuser
  print "  Connecting to Focuser\n";
  $SX->ccdsoftCamera->focConnect();

SkyX_Test.pl  view on Meta::CPAN

  # A LOT more tests need to be added.
  print "Testing ccdsoftCamera module.\n";
  print "  Connecting to Main Imager\n";
# We'll use this later
#   ccdsoftCamera::LastImageFileName
  $SX->ccdsoftCamera->Autoguider(0);
  $SX->ccdsoftCamera->Frame(1);
  $SX->ccdsoftCamera->Connect();
  $SX->ccdsoftCamera->Asynchronous(0);
  $SX->ccdsoftCamera->ImageUseDigitizedSkySurvey(1);
  $SX->ccdsoftCamera->AutoSaveOn(1);
  print "  Taking photo (DSS)\n";
  $SX->ccdsoftCamera->ExposureTime(1);
  $SX->ccdsoftCamera->TakeImage();
  print "  Connecting to Focuser\n";
  $SX->ccdsoftCamera->focConnect();
  print "  Moving in 50 steps.\n";
  $SX->ccdsoftCamera->focMoveIn(50);
  sleep 5;