view release on metacpan or  search on metacpan

t/calcpoints.t  view on Meta::CPAN

while (1) {
    $n ++;
    my $line = <DATA>;
    last unless $line;
    chomp $line;
    my ($date, $time, $ra, $dec, $sys, $num_points) = split ' ', $line;
    $line = <DATA>;
    chomp $line;
    my @time_el_ref = split ' ', $line;
    $line = <DATA>;
    chomp $line;
    my @az_pa_ref = split ' ', $line;

    unless ((scalar @time_el_ref) == (2 * $num_points)
            and (scalar @az_pa_ref) == (2 * $num_points)) {
        fail('Wrong number of points read from data block.');
        next;
    }

    my $s = App::SourcePlot::Source->new('test', $ra, $dec, $sys);
    $s->calcPoints($date, $time, $num_points, $mw, $jcmt);
    my @time_el_calc = $s->time_ele_points();
    my @az_pa_calc = $s->az_pa_points();

    unless ((scalar @time_el_calc) == (2 * $num_points)
            and (scalar @az_pa_calc) == (2 * $num_points)) {
        fail('Wrong number of points returned by calculation.');
        next;
    }

    for (my $i = 0; $i < $num_points; $i ++) {
        delta_ok($time_el_calc[2 * $i],     $time_el_ref[2 * $i],     "Test $n point $i LST");
        delta_ok($time_el_calc[2 * $i + 1], $time_el_ref[2 * $i + 1], "Test $n point $i EL");
        delta_ok(  $az_pa_calc[2 * $i],       $az_pa_ref[2 * $i],     "Test $n point $i AZ");
        delta_ok(  $az_pa_calc[2 * $i + 1],   $az_pa_ref[2 * $i + 1], "Test $n point $i PA");
    }
}

# Dummy class to give to calcPoints as a "Main Window".

package TestMainWindow;

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub update {
}

package main;

# The following test data was created from App::SourcePlot::Source before
# conversion to using Astro::Coords.  However it was necessary first to fix
# a bug in the original Source module's handling of negative declinations.
# This data should help check that the calculations have not inadvertently
# been changed.  The times, dates and coordinates are all randomly selected.

__DATA__
2076/12/14 10:35:48 23:06:35 +32:35:06 RB 97
1.00147389350005 27.7228279971194 1.06710293978669 24.6057215610769 1.13273198607333 21.5034209738897 1.19836103235998 18.419069587524 1.26399007864662 15.3558756095167 1.32961912493326 12.3171743148455 1.3952481712199 9.30648644421915 1.460877217506...
297.997354016103 83.4926412443841 298.450771847945 81.6289671970724 299.002503690085 79.7814284452823 299.64860635561 77.9383980441721 300.386760135972 76.0892240918417 301.216039154327 74.2239394496556 302.136741547732 72.3330300240025 303.150263545...
2012/02/01 15:01:16 03:07:06 -29:19:07 RB 97
2.98441087966007 -38.26738522851 3.05003992420997 -41.5506024706398 3.11566896875987 -44.8363509289064 3.18129801330977 -48.1214245556853 3.24692705785967 -51.4019932482929 3.31255610240957 -54.6732688427641 3.37818514695947 -57.928981425743 3.443814...
248.048509826645 86.8220207750591 248.221847027615 88.5392493472996 248.26602072193 90.3374838444024 248.158551891573 92.2439259989654 247.868530792601 94.2938910010081 247.352973219511 96.5344884362564 246.551116512576 99.030360094812 245.3752427655...
2061/10/04 22:11:11 07:52:16 -16:39:11 RB 97
2.8163049766926 34.7214278828823 2.88193402527143 31.9131965135547 2.94756307385026 29.011102634722 3.0131921224291 26.0280186227262 3.07882117100793 22.9748617796623 3.14445021958676 19.8608915027752 3.2100792681656 16.6939713796367 3.27570831674443...
231.189223456442 50.0246427564985 233.879626241603 52.5994010191415 236.345578236488 54.9464596563464 238.612270064426 57.0906031205308 240.702523148768 59.0542050428447 242.636768773646 60.8572001211882 244.433165477855 62.5171930004264 246.10778781...
2059/02/18 02:11:16 11:35:01 +61:13:05 RB 97
6.20156531997265 -9.56535970947104 6.26719436130797 -9.50583259448884 6.33282340264329 -9.33114016465334 6.3984524439786 -9.04220564832008 6.46408148531392 -8.64054126313325 6.52971052664924 -8.12821926356142 6.59533956798455 -7.50783362305311 6.6609...
0.0289595370014974 -0.0555170196803221 1.89884151206035 -3.64196854365873 3.76065768836726 -7.22333002667711 5.60657783492694 -10.7947193507522 7.42898925074228 -14.351507157207 9.2205915889841 -17.8894295970177 10.9744772122953 -21.4046871501892 12....
1996/12/01 00:52:06 04:59:09 -38:42:42 RB 97
4.49650065093161 -71.059503223797 4.56212969402795 -70.4289541665725 4.62775873712428 -69.301369862365 4.69338778022062 -67.7532885696543 4.75901682331695 -65.8669793224612 4.82464586641328 -63.716977852839 4.89027490950962 -61.3647133962279 4.955903...
174.127312407337 -172.920701278582 165.42169861192 -162.351463624061 157.536136684291 -152.597275311036 150.711264458737 -143.895707464967 144.989079648694 -136.285646933526 140.287292384583 -129.681631609779 136.470880330556 -123.945387817342 133.39...
2028/06/04 00:41:41 01:48:39 +49:06:52 RJ 97
1.35878528621576 40.5117147832563 1.42441432943603 38.1556290919725 1.4900433726563 35.7635728686211 1.55567241587657 33.3446483240201 1.62130145909684 30.9069613401695 1.68693050231711 28.4578188623142 1.75255954553738 26.0038971686476 1.81818858875...
318.699003134214 107.961281237873 317.810919318338 104.549032383112 317.124365323398 101.286923451535 316.62133207621 98.1523220442667 316.286346926478 95.1249189180966 316.106249552566 92.1864917426143 316.069952556648 89.3206552396388 316.168207408...
2061/07/09 01:07:01 09:16:42 +73:24:39 RJ 97
2.07177777519788 35.2660111784522 2.13740681444383 35.698613285259 2.20303585368978 36.0545155831139 2.26866489293574 36.3311517974379 2.33429393218169 36.5264892748016 2.39992297142764 36.6390721739363 2.4655520106736 36.6680535390581 2.531181049919...
7.63468117070479 -154.451744055422 6.40661056710009 -158.763610341198 5.13568702937578 -163.107454818134 3.82983426015161 -167.47759860535 2.49758984799858 -171.867748674761 1.14797277067932 -176.271130215127 359.790327272335 179.319357197403 358.434...
2030/01/23 07:35:11 16:05:09 +37:52:48 RJ 97
0.88887540501046 -31.5205394993778 0.954504443812333 -32.0205776164343 1.02013348261421 -32.3076816962153 1.08576252141608 -32.378608073906 1.15139156021795 -32.2325456109484 1.21702059901983 -31.8711604578405 1.2826496378217 -31.2985044988551 1.3482...
350.154984471656 11.745061994187 353.60014085433 7.6257427457746 357.093729250116 3.46055811791766 0.609664127738686 -0.725815620773106 4.12089272970983 -4.90772545037203 7.60056752210497 -9.05972556724042 11.0231959894775 -13.1577387310249 14.365643...
2006/04/09 09:06:39 05:39:48 +29:35:59 RJ 97
2.59316421231112 32.1474459565591 2.65879325075424 28.9009574302959 2.72442228919736 25.6666530835741 2.79005132764049 22.446993250297 2.85568036608361 19.2444896058597 2.92130940452673 16.0617593101717 2.98693844296985 12.9015754664106 3.05256748141...
293.185124803295 84.0554772398043 293.631804393339 82.4242448244092 294.16794240508 80.8119150308964 294.788969120214 79.2069799857686 295.492103729985 77.5990992208674 296.276064889369 75.9787394040955 297.140865733074 74.3368925297331 298.087670442...
1999/08/07 18:24:59 01:52:05 -29:41:01 RJ 97
0.811886160361015 37.3810260362627 0.877515207794718 36.0459444137141 0.943144255228421 34.5063965257786 1.00877330266212 32.7790277229392 1.07440235009583 30.8804629098025 1.14003139752953 28.8268227767969 1.20566044496323 26.6333850803054 1.2712894...
200.302539252179 22.0689496013267 204.022143021936 26.1558599084471 207.551768833494 30.0575233698799 210.882635865375 33.7660614798445 214.01188137724 37.2795655650224 216.941386554237 40.6009328189422 219.676591473806 43.7366927317289 222.225413878...
2067/01/09 22:41:52 02:52:19 -20:07:35 RJ 97
4.61569123336471 -51.89825349901 4.68132027689066 -48.3915981904806 4.74694932041661 -44.8911270598318 4.81257836394257 -41.3975823715063 4.87820740746852 -37.9117699639617 4.94383645099447 -34.4345689057061 5.00946549452042 -30.96694258027 5.0750945...
97.2060784053552 -82.891425848478 97.9236122021612 -82.1648585787445 98.6587967330705 -81.4219866302536 99.4134873337833 -80.6606613768962 100.189740526705 -79.8786122185622 100.989824791035 -79.0734107405782 101.816238916366 -78.2424362435159 102.67...
2009/07/12 03:39:19 13:07:48 -84:59:11 RB 97
2.78283443226847 -16.1758746137882 2.8484634720641 -15.9922702060941 2.91409251185974 -15.8248515709378 2.97972155165537 -15.6742968749655 3.04535059145101 -15.5412151779884 3.11097963124664 -15.4261442569393 3.17660867104228 -15.3295486767351 3.2422...
176.897517017449 -38.5071489154559 177.154166543982 -34.8305715734862 177.422301800125 -31.1563867640265 177.700819752197 -27.4843043461098 177.988582254106 -23.8140454406514 178.284419945042 -20.1453419546464 178.587136226074 -16.477935800408 178.89...
2016/11/19 23:39:09 01:59:05 -32:16:01 RJ 97
3.99074569151496 -69.1970444282445 4.05637473566116 -66.4124768060264 4.12200377980736 -63.4987103345312 4.18763282395356 -60.4962339314889 4.25326186809976 -57.4319644452626 4.31889091224596 -54.3243605941659 4.38451995639216 -51.1865155508299 4.450...
130.208576007499 -121.905448578882 126.122862733069 -116.117532309917 123.096088756105 -111.370733897056 120.847647654676 -107.381186011555 119.181244266273 -103.94919908428 117.959229801265 -100.933573285085 117.083995584266 -98.2329674426084 116.48...
2004/05/09 18:13:09 23:07:06 -51:59:48 RJ 97
5.50861904362296 13.2108783930743 5.57424809202831 14.3097933784889 5.63987714043366 15.2825480922759 5.70550618883901 16.1235085428608 5.77113523724437 16.8275811688804 5.83676428564972 17.3903329290536 5.90239333405507 17.8081044918121 5.9680223824...
160.857356438563 -30.0500631698819 162.956620238521 -26.5882575152247 165.13083993401 -23.0705237467075 167.372740633727 -19.5012654891945 169.673901435135 -15.886152550327 172.024808573308 -12.2320460429393 174.414964306645 -8.54686918318997 176.833...
2032/06/07 09:42:42 17:48:35 +18:52:06 RB 97
3.77800547190502 41.5055848415153 3.84363451896009 45.0118644332534 3.90926356601516 48.5245799315194 3.97489261307022 52.0429879869497 4.04052166012529 55.5663828983637 4.10615070718036 59.0940808966824 4.17177975423543 62.6253985945378 4.2374088012...
81.9735971042843 -79.8416255875085 82.8082585328714 -80.4846931693224 83.6397172240771 -81.093941108245 84.4742297678065 -81.6670402840368 85.3196772426009 -82.1997591291406 86.1865931330513 -82.6849722412509 87.0899723057778 -83.1108840404793 88.052...
2007/10/18 23:06:42 08:59:11 +25:24:52 RB 97
3.28422828981448 41.4698590467815 3.34985733540421 38.0829204028977 3.41548638099394 34.7043702200544 3.48111542658367 31.3358198370055 3.5467444721734 27.9789006067679 3.61237351776314 24.6353050613066 3.67800256335287 21.3068232988214 3.74363160894...
286.567767425416 85.1534496504257 286.992886688822 83.8248210878082 287.495257524381 82.5222869196284 288.068499440973 81.2340657905391 288.708458935676 79.9501273988502 289.412724284845 78.6616449252262 290.180296688679 77.3605962043013 291.01136819...
2010/01/18 12:39:41 06:42:09 -51:09:05 RJ 97
2.13243738402556 16.5279373519529 2.19806642452443 15.6093601510815 2.26369546502331 14.5589302955072 2.32932450552218 13.382717435846 2.39495354602105 12.0871593296431 2.46058258651992 10.6789425725253 2.52621162701879 9.16489533753282 2.59184066751...
193.915837119003 21.1479419673921 196.175708892926 24.7029550982854 198.361999574276 28.2014085759965 200.467842969549 31.6393090831987 202.487581592416 35.0140254261911 204.416695034519 38.3242435036332 206.251693499828 41.5698892262872 207.98998697...
2049/03/19 09:05:05 05:09:05 +46:05:42 RB 97
2.23521315395264 42.2415795080509 2.30084218960031 39.7274298287798 2.36647122524798 37.1796590044893 2.43210026089566 34.6072959584138 2.49772929654333 32.0182568236726 2.563358332191 29.4195886782207 2.62898736783868 26.8176696372679 2.694616403486...
315.168436420876 106.578548541707 314.280491614836 103.28110521239 313.60598976634 100.146605864596 313.123113402054 97.1484990542024 312.813580277569 94.2635233882571 312.662189297785 91.4712353405323 312.656402178864 88.7535736314233 312.7859730275...
2076/05/04 04:01:11 21:07:52 -09:59:16 RJ 97
1.70467163823783 -49.8243965755782 1.77030068182952 -53.3119755685374 1.8359297254212 -56.7747607623495 1.90155876901289 -60.2027365501945 1.96718781260458 -63.5810180895079 2.03281685619627 -66.886508101029 2.09844589978795 -70.0816700284306 2.16407...
278.624929518614 70.6534496560178 280.64694049713 69.7010022523658 282.957810030173 68.4383858581978 285.659893569278 66.7658997179628 288.903575184482 64.5356537379876 292.91681414543 61.5220463721426 298.055276013557 57.3716556101857 304.8835067080...
2070/05/19 00:13:13 18:07:16 +16:48:05 RB 97
0.955999488326488 -37.4160521354709 1.02162852717707 -39.997207889459 1.08725756602766 -42.4317867675684 1.15288660487824 -44.6960607258378 1.21851564372883 -46.7631815907069 1.28414468257941 -48.6035290861621 1.34977372142999 -50.1855781043135 1.415...
311.550679409319 47.3522629505384 314.76589464943 44.2517151323195 318.290814724598 40.8391413544659 322.153021261205 37.0872646912659 326.375276364925 32.973608355086 330.971210976511 28.4848104893817 335.939959015598 23.6219928405985 341.2604159205...