Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 38 lines (23 sloc) 0.915 kb
58135b3 [t/spec] changed 'use v6-alpha;' to 'use v6;'
moritz authored
1 use v6;
ad1b86b [t] Test suite refactoring.
cosimo authored
2 use Test;
3 plan 6;
4
f9947f8 [t/spec/S32-num] fix all smartlinks in this dir
moritz authored
5 # L<S32::Numeric/Num/"Num provides a number of constants">
ad1b86b [t] Test suite refactoring.
cosimo authored
6
626a59c [rakudo] add directives to S29-num/ and convert pod to pod6
particle authored
7 =begin pod
8
ad1b86b [t] Test suite refactoring.
cosimo authored
9 =head1 DESCRIPTION
10
11 Basic tests for builtin Num::pi
12
626a59c [rakudo] add directives to S29-num/ and convert pod to pod6
particle authored
13 =end pod
14
ad1b86b [t] Test suite refactoring.
cosimo authored
15
16 # See also: L<"http://theory.cs.iitm.ernet.in/~arvindn/pi/"> :)
17 my $PI = 3.14159265358979323846264338327950288419716939937510;
18
7106d11 [spec] S29-num/pi.t - removed useless eval, fixed rakudo fudge reason
moritz authored
19 #?rakudo 6 skip 'module Num not implemented'
12c77e7 [gsoc_spectest] fixed syntax error in pi.t and added more general TASKS
Auzon authored
20 is_approx(Num::pi, $PI, "Num::pi");
ad1b86b [t] Test suite refactoring.
cosimo authored
21
482b9cd [spec] two more files cleared of illegal usage if is_approx()
moritz authored
22 is_approx(eval("use Num :constants; pi"), $PI,
ad1b86b [t] Test suite refactoring.
cosimo authored
23 "pi imported by use Num :constants");
24
482b9cd [spec] two more files cleared of illegal usage if is_approx()
moritz authored
25 is_approx(eval("use Num :constants; 3 + pi()"), $PI+3, "
ad1b86b [t] Test suite refactoring.
cosimo authored
26 3+pi(), as a sub");
27
482b9cd [spec] two more files cleared of illegal usage if is_approx()
moritz authored
28 is_approx(eval("use Num :constants; pi() + 3"), $PI+3,
ad1b86b [t] Test suite refactoring.
cosimo authored
29 "pi()+3, as a sub");
30
482b9cd [spec] two more files cleared of illegal usage if is_approx()
moritz authored
31 is_approx(eval("use Num :constants; 3 + pi"), $PI+3,
ad1b86b [t] Test suite refactoring.
cosimo authored
32 "3+pi, as a bareword");
33
482b9cd [spec] two more files cleared of illegal usage if is_approx()
moritz authored
34 is_approx(eval("use Num :constants; pi + 3"), $PI+3,
ad1b86b [t] Test suite refactoring.
cosimo authored
35 "pi+3, as a bareword");
7f29bc5 [t/spec] Add vim: lines everywhere.
kyle authored
36
37 # vim: ft=perl6
Something went wrong with that request. Please try again.