1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
use v6.d;
use Test;
use AdventOfCode::Utils;
#plan 2;
subtest "Point", {
ok Point.new, 'Default Point creation';
is Point.new.x, 0, 'Default x';
is Point.new.y, 0, 'Default y';
ok Point.new(:1x, :2y), 'Point creation';
}
subtest "Line", {
my $point1 = Point.new;
my $point2 = Point.new;
ok Line.new($point1, $point2), 'without named parameters';
ok Line.new(:$point1, :$point2), 'with named parameters';
}
subtest "Wire", {
ok Wire.new("R1");
my $wire = Wire.new("R1");
is $wire.points.elems, 1, 'wire has one point';
isa-ok $wire.points.head, Point, 'Elements are points';
my $point = $wire.points.head;
is $point.x, 1, "First wire point x {$point}";
is $point.y, 0, 'First wire point y {$point}';
subtest "intersection", {
my $line1 = Line.new(
:p(Point.new(:4x, :0y)),
:q(Point.new(:6x, :10y))
);
my $line2 = Line.new(
:p(Point.new(:0x, :3y)),
:q(Point.new(:10x, :7y))
);
my $intersection = intersection($line1, $line2);
is $intersection.x, 5, 'intersection x';
is $intersection.y, 5, 'intersection y';
}
}
done-testing;
|
