[p5sagit/Function-Parameters.git] / t / 03-compiles.t

#!perl

use Test::More tests => 10;

use warnings FATAL => 'all';
use strict;

use Function::Parameters { clathod => 'classmethod' };

clathod id_1() { $class }

clathod id_2
 (

 )
 : #hello
 (
  $
 )
 {@_ == 0 or return;
 	 $class
 }

clathod##
    id_3 ##
 (   ##
 	 #
 ) ##AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
 { ##
 	  $class##
 } ##

clathod add($y) {
	$class + $y
}

clathod mymap(@args) :(&@) {
  my @res;
  for (@args) {
    push @res, $class->($_);
  }
  @res
}

clathod fac_1() {
	$class < 2 ? 1 : $class * fac_1 $class - 1
}

clathod fac_2() :($) {
	$class < 2 ? 1 : $class * fac_2 $class - 1
}

ok id_1 1;
ok id_1(1), 'basic sanity';
ok id_2 1, 'simple prototype';
ok id_3(1), 'definition over multiple lines';
is add(2, 2), 4, '2 + 2 = 4';
is add(39, 3), 42, '39 + 3 = 42';
is_deeply [mymap { $_ * 2 } 2, 3, 5, 9], [4, 6, 10, 18], 'mymap works';
is fac_1(5), 120, 'fac_1';
is fac_2 6, 720, 'fac_2';
is clathod ($y) { $class . $y }->(clathod () { $class + 1 }->(3), clathod () { $class * 2 }->(1)), '42', 'anonyfun';
Commit	Line	Data
6994503c	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	{ ##
c311cef3	30	$class##
6994503c	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';