The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

KIMOTO / SPVM-0.990057 / t / 00_builder / Config.t 

            

              
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

              
use strict;
use warnings;
use Test::More;
use SPVM::Builder::Config;
{
  my $config = SPVM::Builder::Config->new(file_optional => 1);
  is(ref $config, 'SPVM::Builder::Config');
}
# cc
{
  my $config = SPVM::Builder::Config->new(file_optional => 1);
  $config->cc('cc_foo');
  is($config->cc, 'cc_foo');
}
# ld
{
  my $config = SPVM::Builder::Config->new(file_optional => 1);
  $config->ld('ld_foo');
  is($config->ld, 'ld_foo');
}
# extra
{
  ok(SPVM::Builder::LibInfo->can('new'));
  ok(SPVM::Builder::Resource->can('new'));
}
# new
{
  {
    my $config = SPVM::Builder::Config->new_c(file_optional => 1);
    is($config->ext, 'c');
  }
  {
    my $config = SPVM::Builder::Config->new_c99(file_optional => 1);
    is($config->ext, 'c');
    is($config->std, 'c99');
  }
  {
    my $config = SPVM::Builder::Config->new_c11(file_optional => 1);
    is($config->ext, 'c');
    is($config->std, 'c11');
  }
  {
    my $config = SPVM::Builder::Config->new_gnu99(file_optional => 1);
    is($config->ext, 'c');
    is($config->std, 'gnu99');
  }
  {
    my $config = SPVM::Builder::Config->new_gnu11(file_optional => 1);
    is($config->ext, 'c');
    is($config->std, 'gnu11');
  }
  {
    my $config = SPVM::Builder::Config->new_cpp(file_optional => 1);
    is($config->ext, 'cpp');
    like($config->cc, qr/(g\+\+|clang\+\+)/);
    like($config->ld, qr/(g\+\+|clang\+\+)/);
  }
  {
    my $config = SPVM::Builder::Config->new_cpp11(file_optional => 1);
    is($config->ext, 'cpp');
    like($config->cc, qr/(g\+\+|clang\+\+)/);
    like($config->ld, qr/(g\+\+|clang\+\+)/);
    is($config->std, 'c++11');
  }
  {
    my $config = SPVM::Builder::Config->new_cpp14(file_optional => 1);
    is($config->ext, 'cpp');
    like($config->cc, qr/(g\+\+|clang\+\+)/);
    like($config->ld, qr/(g\+\+|clang\+\+)/);
    is($config->std, 'c++14');
  }
  {
    my $config = SPVM::Builder::Config->new_cpp17(file_optional => 1);
    is($config->ext, 'cpp');
    like($config->cc, qr/(g\+\+|clang\+\+)/);
    like($config->ld, qr/(g\+\+|clang\+\+)/);
    is($config->std, 'c++17');
  }
}
done_testing;