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
|
use strict;
use warnings;
use Test::More;
use ExtUtils::CppGuess;
my $guess = ExtUtils::CppGuess->new;
plan skip_all => "Test currently only supports GCC and Clang"
unless $guess->is_gcc || $guess->is_clang;
subtest "Test argument C++11" => sub {
my $flag = eval {
$guess->cpp_standard_flag('C++11');
};
if( $@ =~ /does not support any flags for standard/ ) {
plan skip_all => "Skipping: $@";
}
like $flag, qr/\Q-std=c++\E(11|0x)/, 'correct flag';
};
subtest "Test non-C++ standard" => sub {
my $flag = eval {
# The flag `-std=c11` is a valid compiler flag,
# but not for C++.
$guess->cpp_standard_flag('C11');
};
ok $@ =~ /Unknown standard/, 'C11 is not a C++ standard';
};
subtest "Test compiler failure to support known version" => sub {
# NOTE Monkey-patching data here.
local $ExtUtils::CppGuess::CPP_STANDARD_FLAGS;
for my $compiler ( qw(is_gcc is_clang) ) {
$ExtUtils::CppGuess::CPP_STANDARD_FLAGS
->{$compiler}{'C++unreal'} = [ '-std=c++unreal' ];
}
my $flag = eval {
# This will try to use the fake C++unreal flag, but fail.
$guess->cpp_standard_flag('C++unreal');
};
ok $@ =~ /does not support/, 'Fake version is not supported by compiler';
};
done_testing;
|
