01-nibble.t « t « perl « lance-wicks « challenge-119 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-119/lance-wicks/perl/t/01-nibble.t

blob: 8394f6a3c139b19dbab7ae17ddadf122932328d8 (plain)

use Test2::V0 -target => 'Nibble';

my @tests = ( [ 101, 86 ], [ 18, 33 ] );

for (@tests) {
    is $CLASS->swap( $_->[0] ), $_->[1], "$_->[0] returns $_->[1]";
}

done_testing;