home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume30 / rc / part04 / trip.rc < prev    next >
Text File  |  1992-05-30  |  15KB  |  543 lines
  1. # trip.rc -- take a tour of rc
  2. # Invoke as "path-to-new-rc < trip.rc"
  3.  
  4. rc=$0
  5. echo tripping $rc
  6.  
  7. fn fail {
  8.     echo >[1=2] trip took a wrong turn: $*
  9.     rm -f $tmp
  10.     exit 1
  11. }
  12. fn expect {
  13.     echo >[1=2] -n expect $^*^': '
  14. }
  15. fn submatch {
  16.     if (!~ $#* 3)
  17.         fail incorrect invocation of submatch
  18.     prompt=$nl if (!~ `` $nl {$rc -ic $1>[2=1]} $2)
  19.         fail $3
  20. }
  21. fn sigexit sigint sigquit sigsegv
  22. fn sigexit {
  23.     echo trip complete
  24. }
  25. tmp=/tmp/trip.$pid
  26. rm -f $tmp
  27. nl='
  28. '
  29.  
  30. #
  31. # rc -c
  32. #
  33.  
  34. if ($rc -c >[2]/dev/null) fail 'rc -c didn''t report a bad exit status'
  35. x=`{$rc -c 'echo $0 $2 $#*' a b c d e f}
  36. if (false) {                    # WARNING: this differs from sh
  37.     if (!~ $x(1) a) fail rc -c reports '$0' incorrectly as $x(1)
  38.     if (!~ $x(2) c) fail rc -c reports '$2' incorrectly as $x(2)
  39.     if (!~ $x(3) 5) fail rc -c reports '$#' incorrectly as $x(3)
  40. } else {
  41.     if (!~ $x(1) $rc) fail rc -c reports '$0' incorrectly as $x(1)
  42.     if (!~ $x(2) b) fail rc -c reports '$2' incorrectly as $x(2)
  43.     if (!~ $x(3) 6) fail rc -c reports '$#' incorrectly as $x(3)
  44. }
  45.  
  46. #
  47. # umask
  48. #
  49.  
  50. umask 0
  51. > $tmp
  52. x=`{ls -l $tmp}
  53. if (!~ $x(1) '-rw-rw-rw-') fail umask 0 produced incorrect result: $x(1)
  54. rm -f $tmp
  55. umask 027
  56. > $tmp
  57. y=`{ls -l $tmp}
  58. if (!~ $y(1) '-rw-r-----') fail umask 027 produced incorrect file: $y(1)
  59. rm -f $tmp
  60. if (!~ `umask 027) fail umask reported bad value: `umask
  61.  
  62. submatch 'umask bad' 'bad umask' 'bad umask'
  63. submatch 'umask -027' 'bad umask' 'bad umask'
  64. submatch 'umask 999999' 'bad umask' 'bad umask'
  65. submatch 'umask hi there' 'too many arguments to umask' 'umask arg count'
  66.  
  67. if (!~ `umask 027) fail bad umask changed umask value to `umask
  68.  
  69. #
  70. # redirections
  71. #
  72.  
  73. fn bytes { for (i) x=`{wc -c $i} echo $x(1) }
  74. echo foo > foo > bar
  75. if (!~ `{bytes foo} 0) fail double redirection created non-empty empty file
  76. if (!~ `{bytes bar} 4) fail double redirection created wrong sized file: `{bytes bar}
  77. rm -f foo bar
  78. echo -n >1 >[2]2 >[1=2] foo
  79. x = `` '' {cat 1}
  80. if (!~ $#x 0) fail dup created non-empty empty file: `` '' {cat 1}
  81. if (!~ `` '' {cat 2} foo) fail dup put wrong contents in file : `` '' {cat 2}
  82. rm -f 1 2
  83.  
  84. expect error from cat, closing stdin
  85. cat >[0=]
  86.  
  87. submatch 'cat>(1 2 3)' 'multi-word filename in redirection' 'redirection error'
  88. submatch 'cat>()' 'null filename in redirection' 'redirection error'
  89.  
  90. #
  91. # blow the input stack
  92. #
  93.  
  94. if (!~ hi `{
  95. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  96. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  97. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  98. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  99. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  100. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  101. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  102. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  103. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  104. eval eval eval eval eval eval eval eval eval eval eval eval eval \
  105. eval eval eval eval eval eval eval eval eval eval eval echo hi
  106. })
  107.     fail huge eval
  108.  
  109. #
  110. # heredocs and herestrings
  111. #
  112.  
  113. bigfile=/tmp/big.$pid
  114. od $rc | sed 5000q > $bigfile
  115. abc=(this is a)
  116. x=()
  117. result='this is a heredoc
  118. this is an heredoc
  119. '
  120. if (!~ `` '' {<<[5] EOF cat <[0=5]} $result) fail unquoted heredoc
  121. $abc heredoc$x
  122. $abc^n $x^here$x^doc
  123. EOF
  124. {if (!~ `` $nl cat '    ') fail quoted heredoc} << ' '
  125.     
  126.  
  127.  
  128. <<<[9] ``''{cat $bigfile} \
  129. {
  130.      if(!~ ``''{cat <[0=9]}``'' cat)fail large herestrings
  131. } < \
  132. $bigfile
  133.  
  134. rm -f $bigfile
  135.  
  136. if (!~ `{cat<<eof
  137. $$
  138. eof
  139. } '$')
  140.     fail quoting '$' in heredoc
  141.  
  142. submatch 'cat<<eof' 'heredoc incomplete' 'incomplete heredoc'
  143. submatch 'cat<<eof
  144. ' 'heredoc incomplete' 'incomplete heredoc'
  145.  
  146. submatch 'cat<<(eof eof)' 'eof-marker not a single literal word' 'bad heredoc marker'
  147.  
  148. #
  149. # lexical analysis
  150. #
  151.  
  152. expect warning
  154.  
  155. echo here_is_a_really_long_word.It_has_got_to_be_longer_than_1000_characters_for_the_lexical_analyzers_buffer_to_overflow_but_that_should_not_be_too_difficult_to_do.Let_me_start_writing_some_Lewis_Carroll.Twas_brillig_and_the_slithy_toves,Did_gyre_and_gimble_in_the_wabe.All_mimsy_were_the_borogoves,And_the_mome-raths_outgrabe.Beware_the_Jabberwock_my_son,The_jaws_that_bite,the_claws_that_catch.Beware_the_Jub-jub_bird,and_shun_The_frumious_Bandersnatch.He_took_his_vorpal_sword_in_hand,Long_time_the_manxome_foe_he_sought,So_rested_he_by_the_Tumtum_tree,And_stood_awhile_in_thought.And_as_in_uffish_thought_he_stood,The_Jabberwock,with_eyes_of_flame,Came_whiffling_through_the_tulgey_wood,And_burbled_as_it_came.One_two,one_two.And_through_and_through_The_vorpal_blade_went_snicker-snack.He_left_it_dead_and_with_its_head,He_went_galumphing_back.And_hast_thou_slain_the_Jabberwock?Come_to_my_arms,my_beamish_boy,Oh_frabjous_day.Callooh_callay.He_chortled_in_his_joy.Twas_brillig,and_the_slithy_toves,Did_gyre_and_gimble_in_the_wabe,All_mimsy_were_the_borogoves,And_the_mome-raths_outgrabe. > /tmp/$pid.lw
  156.  
  157. echo 'here_is_a_really_long_word.It_has_got_to_be_longer_than_1000_characters_for_the_lexical_analyzers_buffer_to_overflow_but_that_should_not_be_too_difficult_to_do.Let_me_start_writing_some_Lewis_Carroll.Twas_brillig_and_the_slithy_toves,Did_gyre_and_gimble_in_the_wabe.All_mimsy_were_the_borogoves,And_the_mome-raths_outgrabe.Beware_the_Jabberwock_my_son,The_jaws_that_bite,the_claws_that_catch.Beware_the_Jub-jub_bird,and_shun_The_frumious_Bandersnatch.He_took_his_vorpal_sword_in_hand,Long_time_the_manxome_foe_he_sought,So_rested_he_by_the_Tumtum_tree,And_stood_awhile_in_thought.And_as_in_uffish_thought_he_stood,The_Jabberwock,with_eyes_of_flame,Came_whiffling_through_the_tulgey_wood,And_burbled_as_it_came.One_two,one_two.And_through_and_through_The_vorpal_blade_went_snicker-snack.He_left_it_dead_and_with_its_head,He_went_galumphing_back.And_hast_thou_slain_the_Jabberwock?Come_to_my_arms,my_beamish_boy,Oh_frabjous_day.Callooh_callay.He_chortled_in_his_joy.Twas_brillig,and_the_slithy_toves,Did_gyre_and_gimble_in_the_wabe,All_mimsy_were_the_borogoves,And_the_mome-raths_outgrabe.' > /tmp/$pid.lq
  158.  
  159. if (!~ ``(){cat /tmp/$pid.lw} ``(){cat /tmp/$pid.lq})
  160.     fail expected long string and long word to be identical
  161. if (! x=`{wc -c /tmp/$pid.lw} ~ $x(1) 1088)
  162.     fail expected long word to be 1088 bytes
  163. if (! x=`{wc -c /tmp/$pid.lq} ~ $x(1) 1088)
  164.     fail expected long quote to be 1088 bytes
  165.  
  166. rm /tmp/$pid.lw
  167. rm /tmp/$pid.lq
  168.  
  169. submatch 'echo hi |[2' 'expected ''='' or '']'' after digit' 'scan error'
  170. submatch 'echo hi |[92=]' 'expected digit after ''=''' 'scan error'
  171. submatch 'echo hi |[a]' 'expected digit after ''[''' 'scan error'
  172. submatch 'echo hi |[2-' 'expected ''='' or '']'' after digit' 'scan error'
  173. submatch 'echo hi |[2=99a]' 'expected '']'' after digit' 'scan error'
  174. submatch 'echo hi |[2=a99]' 'expected digit or '']'' after ''=''' 'scan error'
  175. submatch 'echo ''hi' 'eof in quoted string' 'scan error'
  176.  
  177. ifs='' {
  178.     if (!~ 'h i' `{echo -n h\
  179. i})
  180.         fail backslash-newline to space conversion
  181.     if (!~ $rc^\rc `{echo -n $rc\rc})
  182.         fail backslash after variable name did not terminate variable name scan
  183.     if (!~ $rc^' rc' `{echo -n $rc\
  184. rc})
  185.         fail backslash-newline after variable name space conversion
  186.     if (!~ 'h\i' `{echo -n h\i})
  187.         fail backslash in the middle of word
  188.     if (!~ 'h \ i' `{echo -n h \ i})
  189.         fail free-standing backslash
  190. }
  191.  
  192. if (! $rc -c '# eof in comment')
  193.     fail eof in comment exited with nonzero status
  194.  
  195. # test the syntax error printer
  196.  
  197. prompt='' if (!~ `` $nl {$rc -cif>[2=1]} 'line 1: '*' error near if')
  198.     fail print syntax error
  199.  
  200. prompt='' if (!~ `` $nl {$rc -icif>[2=1]} *' error')
  201.     fail print syntax error
  202.  
  203. #
  204. # builtins
  205. #
  206.  
  207. fn foo {
  208.     return sigfpe
  209. }
  210.  
  211. foo
  212. if (!~ $status sigfpe)
  213.     fail return builtin did not return sigfpe
  214.  
  215. fn foo # test deleting of function
  216. fn bar {
  217.     for (i in 1 2 3 4 5)
  218.         if (~ $i 3)
  219.             return
  220. }
  221.  
  222. bar
  223. if (!~ $i 3)
  224.     fail return inside loop inside function failed
  225.  
  226. submatch return 'return outside of function' 'return outside of function'
  227. submatch 'break 1' 'too many arguments to break' 'break arg count'
  228. submatch break 'break outside of loop' 'break outside of loop'
  229.  
  230. for (i in 1 2 3 4 5)
  231.     if (~ $i 2)
  232.         break
  233. if (!~ $i 2)
  234.     fail break out of loop
  235.  
  236. submatch 'wait foo' 'foo is a bad number' 'bogus argument to wait'
  237.  
  238. if (~ `{echo -n} ?)
  239.     fail echo -n
  240. if (~! `` '' {echo --} $nl)
  241.     fail echo --
  242.  
  243. pwd=`/bin/pwd cdpath=/ { # some local assignments
  244.     home=/tmp cd
  245.     if (!~ `/bin/pwd `{sh -c 'cd /tmp; /bin/pwd'})
  246.         fail could not cd to '$home'
  247.  
  248.     cdpath=/ cd tmp
  249.     if (!~ `/bin/pwd `{sh -c 'cd /tmp; /bin/pwd'})
  250.         fail could not cd to /tmp
  251.  
  252.     cd $pwd
  253.     if (!~ `/bin/pwd `{sh -c 'cd $pwd; /bin/pwd'})
  254.         fail could not cd to current directory!
  255. }
  256.  
  257. *=(1 2 3 4 5) {
  258.     expect bad number
  259.     shift foo
  260.     expect arg count
  261.     shift 1 2 3
  262.     expect shift overflow
  263.     shift 123
  264.     shift 3
  265.     if (!~ $#* 2)
  266.         fail shift 3 of '(1 2 3 4 5)' failed
  267.     shift
  268.     if (!~ $* 5)
  269.         fail shift failed to shift left-to-right
  270. }
  271.  
  272. /bin/false
  273. eval && fail null eval reset '$status'
  274.  
  275. if (!~ `{rm=(); fn rm; path=(. /bin); whatis rm} /bin/rm)
  276.     fail rm isn''''t in bin!?
  277.  
  278. expect list of signal handlers
  279. whatis -s
  280.  
  281. expect list of variables and functions
  282. whatis
  283.  
  284. submatch 'whatis -f' 'whatis: bad option: -f' 'bad option to whatis'
  285.  
  286. submatch 'whatis /frobnatz' '/frobnatz not found' 'search for /frobnatz'
  287.  
  288. if (~ `{whatis limit >[2]/dev/null} builtin) {
  289.     limit coredumpsize 0
  290.     if (!~ `{limit coredumpsize} 0*)
  291.         fail failed to set coredumpsize to zero
  292.     if (!~ `` () {limit coredumpsize} `` () {limit|grep coredumpsize})
  293.         fail limit limit
  294.     submatch 'limit foo' 'no such limit' 'bad limit'
  295. }
  296.  
  297. fn cd
  298.  
  299. submatch 'cd a b c' 'too many arguments to cd' 'cd arg count'
  300. $rc -c 'cdpath=() cd /frobnatz' >[2]/dev/null && fail 'cd to /frobnatz succeeded!?'
  301. submatch 'cdpath='''' cd frobnatz' 'couldn''t cd to frobnatz' 'cd to frobnatz succeeded!?'
  302.  
  303. 'if'=keyword {
  304.     {whatis if | fgrep '''if''=keyword' >/dev/null} || fail whatis of keyword is not quoted
  305. }
  306.  
  307. #
  308. # wait
  309. #
  310.  
  311. submatch 'wait 1 2 3' 'too many arguments to wait' 'arg count'
  312. $rc -c 'wait 1' >[2]/dev/null && fail wait 1
  313.  
  314. sleep 5&
  315. expect $apid
  316. echo $apids
  317. wait
  318.  
  319. if (~ `` '' {wait} ?)
  320.     fail waiting for nothing
  321.  
  322. #
  323. # matching
  324. #
  325.  
  326. touch /tmp/abc.$pid /tmp/bbc.$pid
  327. mkdir /tmp/dir.$pid /tmp/dip.$pid
  328. touch /tmp/dir.$pid/^(a b c) /tmp/dip.$pid/^(a b c)
  329.  
  330. if (!~ 123 [~x]?[0-9])
  331.     fail match
  332. if (!~ () *)
  333.     fail match of null list with '*'
  334. if (~ () *v*)
  335.     fail match of null list with '*v*' succeeded
  336. if (!~ (foo bar zar) *****z*****)
  337.     fail match of list by one pattern failed
  338. if (~ (foo bar zar) *c*)
  339.     fail bad match
  340. if (!~ [aaa [aaa)
  341.     fail bad rangematch
  342. if (!~ ']' []])
  343.     fail match right bracket
  344. if (~ x [y])
  345.     fail rangematch out of range
  346. if (~ x x?)
  347.     fail too many characters in pattern
  348.  
  349. test -f /////tmp//////a?c.$pid || fail glob with many slashes
  350. if (!~ /////tmp//////a*.$pid /////tmp//////a?c.$pid)
  351.     fail glob with many slashes
  352. if (!~ ////tmp////di?.$pid////* ////tmp////dir.$pid////*b*)
  353.     fail glob with more slashes
  354. if (! @{cd /; ~ */a*.$pid tmp/a*})
  355.     fail glob in current directory
  356. if (!~ /tmp/?bc.$pid /tmp/bbc.$pid)
  357.     fail match of bbc.$pid against '('abc.$pid bbc.$pid')'
  358.  
  359. rm /tmp/abc.$pid /tmp/bbc.$pid
  360. rm -rf /tmp/dir.$pid /tmp/dip.$pid
  361.  
  362. #
  363. # signals
  364. #
  365.  
  366. fn sigint {eval}
  367. kill -2 $pid
  368. fn sigint
  369.  
  370. #
  371. # path searching
  372. #
  373.  
  374. $rc -c /frobnatz >[2]/dev/null && fail 'search error'
  375.  
  376. touch /tmp/noexec.$pid
  377. chmod a-x /tmp/noexec.$pid
  378. $rc -c /tmp/noexec.$pid >[2]/dev/null && fail /tmp/noexec.$pid is found!?
  379. rm /tmp/noexec.$pid
  380.  
  381. submatch 'path='''' frobnatz' 'frobnatz not found' 'search error'
  382.  
  383. {path=() /bin/sh -c 'exit 0'} || fail abs pathname with path set to null
  384.  
  385. #
  386. # options
  387. #
  388.  
  389. # this test is meaningless; not really a trip
  390. expect prompt, echo hi
  391. home=/frobnatz $rc -nolpeivdxc 'echo hi'
  392. if (!~ `` $nl {$rc -c>[2=1]} *': option requires an argument -- c')
  393.     fail getopt on -c
  394. if (!~ `` $nl {$rc -q>[2=1]} *': bad option: -q')
  395.     fail getopt on -q (bogus option)
  396. if (!~ `{echo '#echo' | $rc -v |[2] sed 's/#//'} echo)
  397.     fail rc -v
  398.  
  399. #
  400. # dot
  401. #
  402.  
  403. if (~ `` '' . ?*)
  404.     fail null dot
  405. if (~ `` '' {. -i} ?*)
  406.     fail null dot -i
  407.  
  408. cat > /tmp/dot.$pid << eof
  409. echo hi
  410. eof
  411.  
  412. prompt=';' if (~! `` '' {. -i /tmp/dot.$pid>[2=1]} ';hi'^$nl';')
  413.     fail dot -i
  414. submatch .' '/tmp/dot.$pid hi dot
  415.  
  416. rm /tmp/dot.$pid
  417.  
  418. $rc -c '. /frobnatz' >[2]/dev/null && fail 'dot of a nonexistent file'
  419.  
  420. #
  421. # stdin
  422. #
  423.  
  424. if (!~ `{echo echo hi | $rc} hi)
  425.     fail piping stdin to rc
  426.  
  427. #
  428. # functions, variables & environment
  429. #
  430.  
  431. fn --- {for(i)a|[2=3]b>>c<<<'e'&f>[2=1]}
  432.  
  433. if (whatis printenv >/dev/null>[2=1]) {
  434.     printenv=printenv
  435. } else if (whatis env >/dev/null>[2=1]) {
  436.     printenv=env
  437. } else
  438.     printenv=()
  439.  
  440. if (~ $#printenv 1 && !~ `` $nl {$printenv | grep fn___2d__2d__2d} 'fn___2d__2d__2d={for(i in $*)a|[2=3]b >>c <<<''e''&f >[2=1]}')
  441.     fail protect_env
  442.  
  443. fn --- {replace}
  444. ~ `{whatis -- ---} *replace* || fail replace a function definition
  445. fn ---
  446. whatis -- --- >[2]/dev/null && fail function deletion
  447. foo=bar *=bar
  448. foo=nest *=nest {
  449.     ~ $foo nest || fail local assignment
  450.     ~ $* nest || fail local assignment to '$*'
  451.     foo=()
  452.     *=()
  453.     ~ $foo () || fail local deletion
  454.     ~ $* () || fail local deletion to '$*'
  455. }
  456. ~ $foo bar || fail restore of global after local group
  457. ~ $* bar || fail restore of '$*' after local group
  458. ~ `{exec>[2=1];$rc -xc 'foo=()'} 'foo=()' || fail -x echo of variable deletion
  459.  
  460. fn_ff='{' prompt='' if (~! `` $nl {$rc -cff>[2=1]} 'line 1: '*' error near eof')
  461.     fail 'bogus function in environment'
  462.  
  463. #
  464. # statuses
  465. #
  466.  
  467. ~ `{$rc -ec 'sleep 10&kill -9 $apid;wait'>[2=1]} killed ||
  468.     fail status diagnostic
  469.  
  470. $rc -c 'exit 0 sigfpe' && fail exit of bad pipeline is true
  471.  
  472. submatch 'exit foo' 'bad status' 'exit diagnostic'
  473.  
  474. #
  475. # control structures
  476. #
  477.  
  478. if (!~ `{false || echo hi} hi)
  479.     fail '||'
  480. if (!~ `{true && echo hi} hi)
  481.     fail '&&'
  482. if (~ `{true || echo hi} hi)
  483.     fail '||'
  484. if (~ `{false && echo hi} hi)
  485.     fail '&&'
  486.  
  487. while (false)
  488.     fail false while
  489. while (true) {
  490.     break
  491.     fail break in while
  492. }
  493.  
  494. switch (foo) {
  495.     case bar
  496.         fail matched bar in switch
  497.     case foo
  498.         eval
  499.     case *
  500.         fail match foo in switch
  501. }
  502.  
  503. switch (nothing) {
  504.     case bar
  505.         fail matched bar in switch
  506.     case *
  507.         i=frobnatz
  508. }
  509.  
  510. ~ $i frobnatz || fail match '*' in switch
  511.  
  512. submatch '()=()' 'null variable name' 'assignment diagnostic'
  513. submatch 'fn () {eval}' 'null function name' 'assigning null function name'
  514.  
  515. #
  516. # prompt
  517. #
  518.  
  519. fn prompt {echo hi}
  520. prompt=() if (~! `{$rc -i /dev/null>[2]/dev/null} hi) fail fn prompt
  521. fn prompt
  522.  
  523. #
  524. # history
  525. #
  526.  
  527. history=/tmp/hist.$pid prompt='' echo 'history=()' | $rc -i
  528.  
  529. if (!~ `{cat /tmp/hist.$pid} 'history=()')
  530.     fail output to history file
  531.  
  532. history=/tmp/hist.$pid prompt='' echo 'history=()' | $rc -i
  533.  
  534. if (!~ `` () {cat /tmp/hist.$pid} 'history=()
  535. history=()
  536. ')
  537.     fail append to history file
  538.  
  539. rm /tmp/hist.$pid
  540.  
  541. if (!~ `{history=/frobnatz/foo prompt='' echo eval | $rc -i >[2=1]} ?*)
  542.     fail accessing bad history file
  543.