t/001-basic.t - metacpan.org

#! /usr/bin/perl
# vim: sw=4 et nowrap

my $GENERATE;

use lib 't/lib';
use Test::NetHack::FOV::Compare 'compare';

BEGIN {
    $GENERATE = (@ARGV == 1 && $ARGV[0] eq '-regenerate') ? 1 : 0;

    if ($GENERATE) {
        require Test::NetHack::FOV::Real;
        Test::NetHack::FOV::Real->import('calculate_fov');
    } else {
        require NetHack::FOV;
        NetHack::FOV->import('calculate_fov');
        require Test::More;
        Test::More->import(tests => 352);
    }
}


my @textmap =
('                                                                                '
,'                                                                                '
,'                                                     ###########                '
,'             ##############                        #############                '
,'             ################      #########     ###        #                   '
,'             ############## ################     #          #####               '
,'                     #  #   #      ###############              #               '
,'              ########  # ##################                    ###             '
,'              #       ### # #      #########                      #             '
,'            ###       # #####          #                          ##            '
,'            #       ### # # #         ##                           #            '
,'          ###       # ##### #         #                    ##############       '
,'          #  ######## # #   #  ########                    ##############       '
,'          #  #      #####   #  #                           ##############       '
,'          ########  # #     ########                       ##############       '
,'          ########### #       ######                                            '
,'          ########            ######                                            '
,'          ########                                                              '
,'          ########                                                              '
,'                                                                                '
,'                                                                                '
);

my @map;

for my $y (0 .. 20) {
    for my $x (0 .. 79) {
        $map[$x][$y] = substr($textmap[$y], $x, 1) eq '#' ? 0 : 1;
    }
}

sub cb {
    my ($x,$y) = @_;

    return $x >= 0 && $y >= 0 && $x < 80 && $y < 21 && !$map[$x][$y];
}

my @floor;
my @maybevis;

for my $y (0 .. 20) {
    TILE:for my $x (0 .. 79) {
        push @floor, [$x,$y] if !$map[$x][$y];

        my $couldsee;
        for ([-1,-1],[-1,0],[-1,1],[0,-1],[0,0],[0,1],[1,-1],[1,0],[1,1]) {
            $couldsee ||= !$map[$_->[0]+$x][$_->[1]+$y];
        }

        push @maybevis, [$x,$y] if $couldsee;
    }
}

for my $xy (@floor) {
    my $mp;
    my $AoA = calculate_fov(@$xy, \&cb);

    if ($GENERATE) {

        for my $i (0 .. (@maybevis - 1)) {
            vec($mp, $i, 1) = $AoA->[$maybevis[$i][0]][$maybevis[$i][1]];
        }
        print $mp;

    } else {

        read DATA, $mp, (@maybevis + 7) / 8;
        my $AoAr = [];
        for my $i (0 .. (@maybevis - 1)) {
            $AoAr->[$maybevis[$i][0]][$maybevis[$i][1]] = vec($mp, $i, 1);
        }

        compare(\@map, $xy->[0], $xy->[1], $AoA, $AoAr);

    }
}

close DATA unless $GENERATE;

__DATA__
üøÿüÿðx `üøÿþÿðxüøÿþÿ° üøÿþÿ¸(üøÿþÿ¸ÿ(üøÿþÿÿüøÿþÿÿüøÿþÿÿüøÿþÿÿüøÿþÿÿüøÿþÿÿþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþßþÿüÿüÿÿþßþÿüÿüÿÿþßþÿüÿüÿÿþÿþÿüÿüÿÿþÿþÿüÿüÿÿþÿþÿüÿüÿÿþÿ=ÈFþÿüÿüÿÿþÿ=ÌgþÿüÿüÿÿþÿäcÀ8`pþÿüÿüÿÿÿþÿd#@þÿüÿüÿÿÿþÿ`ðîÿþÿðø `øþÿþÿøxüþÿþÿ¸(üþÿþÿüþÿþÿüþÿþÿüþÿþÿüþÿþÿüþÿþÿÿüþÿþÿÿüþÿþÿÿüþÿþÿüþÿþÿþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþßþÿüÿüÿÿþßþÿüÿüÿÿþßþÿüÿüÿÿþÿþÿüÿüÿÿþÿþÿüÿüÿÿþÿÄcþÿüÿüÿÿþÿà`À8`pþÿüÿüÿÿþû` þÿüÿüÿÿþû} þÿüÿüÿÿÿþû> þüÿüÿÿßþ[àðÿðÿàÿþÿüðÿøÿðÿÿ?ÿüðÿüÿøÿÿ?ÿüðÿþÿüÿÿ?ÿüðÿÿÿüÿÿàÿüðÿÿÿüÿÿàÿüðÿÀÿÿýÿÿàÿüðÿÀÿÿýÿÿàÿüÀðÿÀÿÿýÿÿàÿü@ðè{øøÀÀøü?øø`àx~øèàÿ>ÀþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþÛþÿüÿüÿÿþßþÿüÿüÿÿþßþÿüÿüÿÿþßþÿüÿüÿÿþûÀ@þÿüÿüÿÿþûà`À8`pþÿüÿüÿÿþû`þÿüÿüÿÿþÛðÀxÿÀÿÿÿÀÿüàþø|ÿÁÀÿÿÿàÿüÀÿ~ÀûáÀÿÿýðÿüøñÀÿÿýøÿüøùÀÿÿýüÿÿÀøýÀÿÿýþÿðÿààøÿÀÿÿýÿÿþÿþððøÿÀÿÿýÿÿþÿÿüðøÿÀÿÿýÿÿÿÿÿüðøÿÀÿÿýÿÿÿÿàÿüðøÿÀÿÿýÿÿÿÿàÿüðøÿÀÿÿýÿÿÿàÿüðøÿÀÿÿýÿ?ÀÿÿðÿüðøÿÀÿÿýÿÀÿðÿüÀðøÿÀÿÿýÿÀÿ?ðÿü@ðøÿÀÿÿýÿàÿøÿü@x|x8ððÀ_ÀÀ_@_@@øÿàÿÿÀÀÿÿü>pà`À8`p<ÀÀ àðÀÿðÿ/ÿÿÿÿàÿüðàÿøÿ/ÿÿÀÿÿðÿüððÿüÿ/ÿÿàÿÿøÿüðøÿþÿ/ÿÿðÿÿüÿüðøÿÿÿ/ÿÿøÿÿüÿüðøÿÿÿ/ÿÿüÿÿüÿüðøÿÀÿÿ/ÿÿþÿÿýÿüÀðøÿÀÿÿ/ÿÿÿÿÿýÿü@ðøÿÀÿÿ/ÿÿÿÿÿ@ýÿü@ð?øÿÀÿÿ/ÿÿÿÿÿ@ýÿüðøÀÿ¿/ÿÿÿÿý@ý?|ðøÀÿ/ÿÿÿÿü@ý<øÀÿ/ÿÿÿü@ýø0Àÿ?ÿÿÿ?ü@ýøÀÿ?ÿÿÿü@ýxp| üøü`üøü0üøôüøôüøôüøôøðpüøôüøô@øààpàxÐ8`p/ÀýÿÿÿÀý@0à/ÀÿÿÿÿÀÿ`À/ÀÿÀÿÿÿ@ÿÀàÀ/Àÿàÿÿÿ@ÿà/Àýðÿÿÿ@ýð/Àýøÿÿÿ@ýø@ð/Àýüÿÿÿ@ýü`|Àþ/Àýþÿÿÿ@ýþpÀüÀÿ/Àýÿÿÿÿ@ýÿxðÿÀÿ/Àýÿÿÿÿ@ýÿ|ðÿàÿ/Àýÿÿÿÿ@ýÿüðÀÿðÿ/Àýÿÿÿÿ@ýÿüðÀÿðÿ/Àýÿÿÿÿ@ýÿüðÀÿðÿÀýÿÿÿ@ýÿüðàÿøÿÀýÿ?ÿÿ@ýÿüÀðàÿøÿÀýÿÿÿ@ýÿü@ðàÿøÿÀýÿÿÿ@ýÿüððÿüÿÀýÿÿÿ@ýÿ|`ð>\0ð>|À0ÀÀ0Ð>|`|xxà ¼|î``ð|þ°(`øà@pð|zÀ$8`pÀÀðÀ²èÀÀÀè ðÿÀÿàÿÿÿ|ðÿàÿðÿÀÿÿ|ðÿàÿøÿàÿÿ|ðÿàÿüÿðÿÿüðÀÿðÿüÿøÿÿüðÀÿðÿüÿüÿÿüÀðÀÿðÿýÿþÿÿ|ðÀÿðÿÀýÿÿÿÿ|ðÀÿðÿÀýÿÿÿÿ|ð<pà0`À8À|àÀ80|à`| @ð<xà	p@@pðxøÀ8`ppüøÀ6ÈÀ°Üø@0àÀ
Àø@Ø`À@ø@àðÿàÿÿþ|ÀàÀ0ðà0ÀÀðÀðàppü0 <àðà@|àëÀ0|à=Q00| >Hp@@pààxÀþdtÀ
°	øð<øÀÀÀàxðàÀ0ààÀø8pààÀðà|þÿüÿðÿ¸øàÀÀÀ8øøàÀ@øø  <àÀÀÀ0x?îD7ü?þldp@@pà`Ü?ú`p0ØÀ?ú00ÀÀ@@?êÀà|À8``0ààþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿÀpÀþÿøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿøxàÀÀ8Àx`à¿ÿþÀ>à¿ÿþpÀ8¿ÿú¿ÿú¿ÿú¿ÿú=tÿÿúÿÿúÀ0L.à> p@@pà`ø8x|ÀàÿüüàÀ>ÿüü0`ÿüôÿüôÿüôÿüôx0`À0ÀÀÿüô``ÿüôþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿÀ`Àþÿøÿðÿðÿþÿðÿ@0@þÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿ8àÀÀøÀ?ÿøÿøÀÿÿøÿøÀ+wÀD|à/`0`¾ð.}
>}p@@pà`À:uÀàüø<>ðàþþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþûøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿ@þÿøÿðÿðÿþÿðÿÀpÀþÿøÿðÿðÿþÿðÿ@þÿøÿðÿðÿþÿðÿ@þÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿ8àÀûÀÿøÿÀÿÿøÿ`ÀûÀÿøÿÀÿÿøÿ@ÿÀÿøÿÀÿÿøÿ@ÿÀÿøÿÀÿÿøÿ@À@ÿÀÿøÿÀÿÿøÿ@ûÀÿøÿÀÿÿøÿ@ûÀÿøÀÿÿøÿ@ûÀÿø?ÀÿÿøÿLàð0`¸	À?>Àà÷ÿÜà ÷ÿüÀüþÿüàþþÿüàþþÿüàþöÿüàþöÿüàþöÿüàþþûøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿÀþÿøÿðÿðÿþÿðÿ@þÿøÿðÿðÿþÿðÿÀ`Àþÿøÿðÿðÿþÿðÿ@0@þÿøÿðÿðÿþÿðÿ@þÿøÿðÿðÿþÿðÿ@þÿøÿðÿðÿþÿðÿ8àÀÿÀÿøÿÀÿÿøÿ`ÀÿÀÿøÿÀÿÿøÿ ÀÿÀÿøÿÀÿÿøÿ ÀÿÀÿøÿÀÿÿøÿ@ÿÀÿøÿÀÿÿøÿ@ÿÀÿøÿÀÿÿøÿ@ÿÀÿøÿÀÿÿøÿ@ûÀÿøÿÀÿÿøÿ@{ÀÿøÿÀÿÿø@;À¿øÿÀ¿xà@ÀøÿÀ0`ÿÿðàþÿÿðàþþÿðàþþÿðàþþÿðàþöÿðàþ8àÀÿÀÿøÿÀÿÿøÿ`ÀÿÀÿøÿÀÿÿøÿ`ÀÿÀÿøÿÀÿÿøÿ ÀÿÀÿøÿÀÿÿøÿ ÀÿÀÿøÿÀÿÿøÿ@À ÀÿÀÿøÿÀÿÿøÿ@ÿÀÿøÀÿÿøÿ@ÿÀÿø?Àÿÿøÿþüðàþþþðàþÿÿðàþÿÿðàþþÿðàþþÿðàþ8àÀÿÀÿøÀÿÿøÿ`ÀÿÀÿøÀÿÿøÿ`ÀÿÀÿøÀÿÿøÿ ÀÿÀÿø?Àÿÿøÿ ÀÿÀÿø?Àÿÿøÿ ÀÿÀÿø?Àÿÿøÿ ÀÿÀÿøÀÿÿøÿ ÀÿÀÿøÀÿÿøÿ8àÀÿÀÿø?Àÿÿøÿ`ÀÿÀÿø?Àÿÿøÿ`ÀÿÀÿø?Àÿÿøÿ`ÀÿÀÿø?Àÿÿøÿ ÀÿÀÿøÀÿÿøÿ ÀÿÀÿøÀÿÿøÿ@À ÀÿÀÿøÀÿÿøÿ ÀÿÀÿøÀÿÿøÿ
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)