t/03-compiles.t

   1 #!perl
   2
   3 use Test::More tests => 10;
   4
   5 use warnings FATAL => 'all';
   6 use strict;
   7
   8 use Function::Parameters { clathod => 'classmethod' };
   9
  10 clathod id_1() { $class }
  11
  12 clathod id_2
  13  (
  14
  15  )
  16  : #hello
  17  (
  18   $
  19  )
  20  {@_ == 0 or return;
  21          $class
  22  }
  23
  24 clathod##
  25     id_3 ##
  26  (   ##
  27          #
  28  ) ##AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  29  { ##
  30           $class##
  31  } ##
  32
  33 clathod add($y) {
  34         $class + $y
  35 }
  36
  37 clathod mymap(@args) :(&@) {
  38   my @res;
  39   for (@args) {
  40     push @res, $class->($_);
  41   }
  42   @res
  43 }
  44
  45 clathod fac_1() {
  46         $class < 2 ? 1 : $class * fac_1 $class - 1
  47 }
  48
  49 clathod fac_2() :($) {
  50         $class < 2 ? 1 : $class * fac_2 $class - 1
  51 }
  52
  53 ok id_1 1;
  54 ok id_1(1), 'basic sanity';
  55 ok id_2 1, 'simple prototype';
  56 ok id_3(1), 'definition over multiple lines';
  57 is add(2, 2), 4, '2 + 2 = 4';
  58 is add(39, 3), 42, '39 + 3 = 42';
  59 is_deeply [mymap { $_ * 2 } 2, 3, 5, 9], [4, 6, 10, 18], 'mymap works';
  60 is fac_1(5), 120, 'fac_1';
  61 is fac_2 6, 720, 'fac_2';
  62 is clathod ($y) { $class . $y }->(clathod () { $class + 1 }->(3), clathod () { $class * 2 }->(1)), '42', 'anonyfun';