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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
!> Define tests for the `fpm_toml` modules
module test_toml
use testsuite, only : new_unittest, unittest_t, error_t
use fpm_toml
implicit none
private
public :: collect_toml
contains
!> Collect all exported unit tests
subroutine collect_toml(testsuite)
!> Collection of tests
type(unittest_t), allocatable, intent(out) :: testsuite(:)
testsuite = [ &
& new_unittest("valid-toml", test_valid_toml), &
& new_unittest("invalid-toml", test_invalid_toml, should_fail=.true.), &
& new_unittest("missing-file", test_missing_file, should_fail=.true.)]
end subroutine collect_toml
!> Try to read some unnecessary obscure and convoluted but not invalid package file
subroutine test_valid_toml(error)
!> Error handling
type(error_t), allocatable, intent(out) :: error
type(toml_table), allocatable :: table
character(len=*), parameter :: manifest = 'fpm-valid-toml.toml'
integer :: unit
open(file=manifest, newunit=unit)
write(unit, '(a)') &
& 'name = "example"', &
& '[dependencies.fpm]', &
& 'git = "https://github.com/fortran-lang/fpm"', &
& '[[executable]]', &
& 'name = "example-#1" # comment', &
& 'source-dir = "prog"', &
& '[dependencies]', &
& 'toml-f.git = "git@github.com:toml-f/toml-f.git"', &
& '"toml..f" = { path = ".." }', &
& '[["executable"]]', &
& 'name = "example-#2"', &
& 'source-dir = "prog"', &
& '[executable.dependencies]', &
& '[''library'']', &
& 'source-dir = """', &
& 'lib""" # comment'
close(unit)
call read_package_file(table, manifest, error)
open(file=manifest, newunit=unit)
close(unit, status='delete')
end subroutine test_valid_toml
!> Try to read an invalid TOML document
subroutine test_invalid_toml(error)
!> Error handling
type(error_t), allocatable, intent(out) :: error
type(toml_table), allocatable :: table
character(len=*), parameter :: manifest = 'fpm-invalid-toml.toml'
integer :: unit
open(file=manifest, newunit=unit)
write(unit, '(a)') &
& '# INVALID TOML DOC', &
& 'name = "example"', &
& 'dependencies.fpm.git = "https://github.com/fortran-lang/fpm"', &
& '[dependencies]', &
& 'toml-f.git = "git@github.com:toml-f/toml-f.git"', &
& '"toml..f" = { path = ".." }'
close(unit)
call read_package_file(table, manifest, error)
open(file=manifest, newunit=unit)
close(unit, status='delete')
end subroutine test_invalid_toml
!> Try to read configuration from a non-existing file
subroutine test_missing_file(error)
!> Error handling
type(error_t), allocatable, intent(out) :: error
type(toml_table), allocatable :: table
call read_package_file(table, 'low+chance+of+existing.toml', error)
end subroutine test_missing_file
end module test_toml
|
