3 p This tests whether TESH correctly sorts command output
5 < p Test sorting and filtering of output
12 < $ printf 'profiling: foo\\n'
14 < $ printf 'profiling: foo'
17 < $ printf 'profiling: foo\\n'
20 < $ printf 'profiling: foo'
22 < $ printf 'a\\nb\\nc\\nd\\n'
28 < $ printf 'a\\nb\\nc\\nd'
35 < $ printf 'c\\nd\\nb\\na\\n'
42 < $ printf 'c\\nd\\nb\\na'
48 < $ printf 'a\\nprofiling: foo\\nprofiling: bar\\nb\\nc\\nd\\nprofiling: baz\\n'
54 < $ printf 'a\\nprofiling: foo\\nprofiling: bar\\nb\\nc\\nd\\nprofiling: baz'
61 < $ printf 'c\\nprofiling: foo\\nprofiling: bar\\nd\\nb\\na\\nprofiling: baz\\n'
68 < $ printf 'c\\nprofiling: foo\\nprofiling: bar\\nd\\nb\\na\\nprofiling: baz'
73 $ perl ${bindir:=.}/tesh --enable-coverage
75 > Test suite from stdin
76 > [(stdin):1] Test sorting and filtering of output
79 > [(stdin):8] printf 'profiling: foo\\n'
80 > [(stdin):10] printf 'profiling: foo'
81 > [(stdin):13] printf 'profiling: foo\\n'
82 > [(stdin):16] printf 'profiling: foo'
83 > [(stdin):18] printf 'a\\nb\\nc\\nd\\n'
84 > [(stdin):24] printf 'a\\nb\\nc\\nd'
85 > [(stdin):31] printf 'c\\nd\\nb\\na\\n'
86 > [(stdin):38] printf 'c\\nd\\nb\\na'
87 > [(stdin):44] printf 'a\\nprofiling: foo\\nprofiling: bar\\nb\\nc\\nd\\nprofiling: baz\\n'
88 > [(stdin):50] printf 'a\\nprofiling: foo\\nprofiling: bar\\nb\\nc\\nd\\nprofiling: baz'
89 > [(stdin):57] printf 'c\\nprofiling: foo\\nprofiling: bar\\nd\\nb\\na\\nprofiling: baz\\n'
90 > [(stdin):64] printf 'c\\nprofiling: foo\\nprofiling: bar\\nd\\nb\\na\\nprofiling: baz'
91 > Test suite from stdin OK
93 p Check the Right Prefix Length (19) for "output sort"
95 < 12345678901234567 B line
96 < 12345678901234567 A line
98 > 12345678901234567 A line
99 > 12345678901234567 B line
102 < 123456789012345678 B line
103 < 123456789012345678 A line
105 > 123456789012345678 B line
106 > 123456789012345678 A line
111 < < 123456789012345678 B line
112 < < 123456789012345678 A line
114 < > 123456789012345678 A line
115 < > 123456789012345678 B line
116 $ perl ${bindir:=.}/tesh
118 p Check user-defined prefix length for "output sort"
141 $ perl ${bindir:=.}/tesh