|
1 | 1 | !> Define tests for the `fpm_toml` modules
|
2 | 2 | module test_toml
|
3 | 3 | use testsuite, only : new_unittest, unittest_t, error_t
|
4 |
| - use fpm_toml |
| 4 | + use tomlf, only: toml_table, toml_load |
| 5 | + use fpm_toml, only: read_package_file, toml_array, toml_key, toml_stat, & |
| 6 | + get_value, set_value, get_list, new_table, add_table, add_array, len, & |
| 7 | + toml_error, toml_serialize, check_keys, set_list, set_string, & |
| 8 | + name_is_json |
5 | 9 | use tomlf_constants, only: tf_i8
|
6 |
| - use fpm_git |
| 10 | + use fpm_git, only: git_target_t, git_target_revision, git_target_branch, & |
| 11 | + & git_target_tag |
7 | 12 | use fpm_dependency, only: dependency_node_t, destroy_dependency_node, dependency_tree_t, &
|
8 | 13 | & new_dependency_node, new_dependency_tree, resize
|
9 | 14 | use fpm_manifest_dependency, only: dependency_config_t, dependency_destroy
|
10 |
| - use fpm_manifest_install |
11 |
| - use fpm_manifest_fortran |
12 |
| - use fpm_manifest_library |
13 |
| - use fpm_manifest_executable |
14 |
| - use fpm_manifest_preprocess |
15 |
| - use fpm_manifest_profile |
| 15 | + use fpm_manifest_install, only: install_config_t |
| 16 | + use fpm_manifest_fortran, only: fortran_config_t |
| 17 | + use fpm_manifest_library, only: library_config_t |
| 18 | + use fpm_manifest_executable, only: executable_config_t |
| 19 | + use fpm_manifest_preprocess, only: preprocess_config_t |
| 20 | + use fpm_manifest_profile, only: file_scope_flag |
16 | 21 | use fpm_versioning, only: new_version
|
17 | 22 | use fpm_strings, only: string_t, operator(==), split
|
18 | 23 | use fpm_model, only: fortran_features_t, package_t, FPM_SCOPE_LIB, FPM_UNIT_MODULE, fpm_model_t, &
|
19 | 24 | & srcfile_t
|
20 | 25 | use fpm_compiler, only: archiver_t, compiler_t, id_gcc
|
| 26 | + use fpm_error, only: fatal_error |
21 | 27 |
|
22 | 28 |
|
23 | 29 | implicit none
|
@@ -1090,7 +1096,7 @@ subroutine string_to_toml(string, table)
|
1090 | 1096 | integer :: iunit
|
1091 | 1097 |
|
1092 | 1098 | ! Write
|
1093 |
| - open(newunit=iunit,form='formatted',status='scratch',action='readwrite') |
| 1099 | + open(newunit=iunit,form='formatted',status='scratch',action='readwrite',recl=4096) |
1094 | 1100 |
|
1095 | 1101 | !> Dump to scratch file
|
1096 | 1102 | write(iunit,*) string
|
|
0 commit comments