# -*-mode: perl-*- $description = "Test GNU make's VMS Library management features."; $details = "\ This only works on VMS systems."; return -1 if $^O ne 'VMS'; # VMS specific note: # $^O eq 'VMS' is for a behavior always neeeded for VMS # $vms is for VMS with out a GNV Bash shell # This is to match the other tests are are not VMS specific. $vms = 0; $vms = 1 if ($^O eq 'VMS' && !defined $ENV{"SHELL"}); # Help library $mk_string = "help : help.hlb(file1.hlp)\n\n" . "file1.hlp :\n" . "\t\@pipe open/write xxx file1.hlp ; write xxx \"1 help\" ; close xxx\n"; my $answer = "library /replace help.hlb file1.hlp"; run_make_test($mk_string, '', $answer); unlink('help.hlb'); unlink('file1.hlp'); #Text library $mk_string = "text : text.tlb(file1.txt)\n\n" . "file1.txt :\n" . "\t\@pipe open/write xxx file1.txt ; write xxx \"text file\" ; close xxx\n"; my $answer = "library /replace text.tlb file1.txt"; run_make_test($mk_string, '', $answer); unlink('text.tlb'); unlink('file1.txt'); #Macro library $mk_string = "macro : macro.mlb(file1.mar)\n\n" . "file1.mar :\n" . "\t\@pipe open/write xxx file1.mar ; write xxx \"macro file\" ; close xxx\n"; my $answer = "library /replace macro.mlb file1.mar"; run_make_test($mk_string, '', $answer); unlink('macro.mlb'); unlink('file1.mar');