diff options
| author | init current directory[i] <urbanjost@comcast.net> | 2020-12-04 00:23:43 -0500 |
|---|---|---|
| committer | init current directory[i] <urbanjost@comcast.net> | 2020-12-04 00:23:43 -0500 |
| commit | 71b2a2aa644772a9ceae551cde0e6f1f7040c3af (patch) | |
| tree | b0d4fe629f712b386693a9fcf682786d9c1078ed | |
| parent | e21401169ec8df08c748b5b4e29530a2df454f29 (diff) | |
| download | fpm-71b2a2aa644772a9ceae551cde0e6f1f7040c3af.tar.gz fpm-71b2a2aa644772a9ceae551cde0e6f1f7040c3af.zip | |
new fpm not in path. use "fpm run"
| -rw-r--r-- | fpm/test/help_test/help_test.f90 | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/fpm/test/help_test/help_test.f90 b/fpm/test/help_test/help_test.f90 index 5c72080..f73a4f5 100644 --- a/fpm/test/help_test/help_test.f90 +++ b/fpm/test/help_test/help_test.f90 @@ -14,21 +14,21 @@ integer :: chars ! run a variety of "fpm help" variations and verify expected files are generated character(len=*),parameter :: cmds(*) = [character(len=80) :: & ! build manual as pieces using various help commands -'fpm --help > fpm_scratch_help.txt',& -'fpm help new >> fpm_scratch_help.txt',& -'fpm build --help >> fpm_scratch_help.txt',& -'fpm help run >> fpm_scratch_help.txt',& -'fpm help test >> fpm_scratch_help.txt',& -'fpm help runner >> fpm_scratch_help.txt',& -'fpm help list >> fpm_scratch_help.txt',& -'fpm help help >> fpm_scratch_help.txt',& -'fpm --version >> fpm_scratch_help.txt',& +'fpm run -- --help > fpm_scratch_help.txt',& +'fpm run -- help new >> fpm_scratch_help.txt',& +'fpm run -- build --help >> fpm_scratch_help.txt',& +'fpm run -- help run >> fpm_scratch_help.txt',& +'fpm run -- help test >> fpm_scratch_help.txt',& +'fpm run -- help runner >> fpm_scratch_help.txt',& +'fpm run -- help list >> fpm_scratch_help.txt',& +'fpm run -- help help >> fpm_scratch_help.txt',& +'fpm run -- --version >> fpm_scratch_help.txt',& ! generate manual -'fpm help manual > fpm_scratch_manual.txt'] +'fpm run -- help manual > fpm_scratch_manual.txt'] -!'fpm >> fpm_scratch_help.txt',& -!'fpm --list >> fpm_scratch_help.txt',& -!'fpm list --list >> fpm_scratch_help.txt',& +!'fpm run >> fpm_scratch_help.txt',& +!'fpm run -- --list >> fpm_scratch_help.txt',& +!'fpm run -- list --list >> fpm_scratch_help.txt',& character(len=*),parameter :: names(*)=[character(len=10) :: 'fpm','new','build','run','test','runner','list','help'] write(*,'(g0:,1x)')'TEST help SUBCOMMAND STARTED' @@ -40,7 +40,7 @@ character(len=*),parameter :: names(*)=[character(len=10) :: 'fpm','new','build' ! check that output has NAME SYNOPSIS DESCRIPTION do i=1,size(names) write(*,*)'check '//names(i)//' for NAME SYNOPSIS DESCRIPTION' - path= 'fpm help '//names(i)//' >fpm_scratch_help.txt' + path= 'fpm run -- help '//names(i)//' >fpm_scratch_help.txt' message='' call execute_command_line(path,exitstat=estat,cmdstat=cstat,cmdmsg=message) write(*,'(*(g0))')'CMD=',path,' EXITSTAT=',estat,' CMDSTAT=',cstat,' MESSAGE=',trim(message) |