~ubuntu-branches/ubuntu/hardy/sigscheme/hardy-proposed : revision 4

1

;; FileName : test-string-cmp.scm

2

;; About : unit test for R5RS string

3

;;

4

5

;;

6

7

;;

8

;; Redistribution and use in source and binary forms, with or without

9

;; modification, are permitted provided that the following conditions

10

;; are met:

11

;;

12

;; 1. Redistributions of source code must retain the above copyright

13

;; notice, this list of conditions and the following disclaimer.

14

;; 2. Redistributions in binary form must reproduce the above copyright

15

;; notice, this list of conditions and the following disclaimer in the

16

;; documentation and/or other materials provided with the distribution.

17

;; 3. Neither the name of authors nor the names of its contributors

18

;; may be used to endorse or promote products derived from this software

19

;; without specific prior written permission.

20

;;

21

;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS

22

;; IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,

23

;; THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR

24

;; PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR

25

;; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

26

;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

27

;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

28

;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

29

;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

30

;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

31

;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

32

33

(load "./test/unittest.scm")

34

35

(define tn test-name)

36

37

;; TODO: immutable

38

39

;; Upper case letters are less than lower.

40

41

;;

42

;; string mutability acceptance

43

;;

44

45

;; Each test consist of immutable/immutable, immutable/mutable,

46

;; mutable/immutable, and mutable/mutable.

47

48

(tn "string-ci=? string mutability acceptance")

49

(assert-true (tn) (boolean? (string-ci=? "abc" "abc")))

50

(assert-true (tn) (boolean? (string-ci=? "abc" (string-copy "abc"))))

51

(assert-true (tn) (boolean? (string-ci=? (string-copy "abc") "abc")))

52

(assert-true (tn) (boolean? (string-ci=? (string-copy "abc")

53

(string-copy "abc"))))

54

(tn "string<? string mutability acceptance")

55

(assert-true (tn) (boolean? (string<? "abc" "abc")))

56

(assert-true (tn) (boolean? (string<? "abc" (string-copy "abc"))))

57

(assert-true (tn) (boolean? (string<? (string-copy "abc") "abc")))

58

(assert-true (tn) (boolean? (string<? (string-copy "abc")

59

(string-copy "abc"))))

60

(tn "string>? string mutability acceptance")

61

(assert-true (tn) (boolean? (string>? "abc" "abc")))

62

(assert-true (tn) (boolean? (string>? "abc" (string-copy "abc"))))

63

(assert-true (tn) (boolean? (string>? (string-copy "abc") "abc")))

64

(assert-true (tn) (boolean? (string>? (string-copy "abc")

65

(string-copy "abc"))))

66

(tn "string<=? string mutability acceptance")

67

(assert-true (tn) (boolean? (string<=? "abc" "abc")))

68

(assert-true (tn) (boolean? (string<=? "abc" (string-copy "abc"))))

69

(assert-true (tn) (boolean? (string<=? (string-copy "abc") "abc")))

70

(assert-true (tn) (boolean? (string<=? (string-copy "abc")

71

(string-copy "abc"))))

72

(tn "string>=? string mutability acceptance")

73

(assert-true (tn) (boolean? (string>=? "abc" "abc")))

74

(assert-true (tn) (boolean? (string>=? "abc" (string-copy "abc"))))

75

(assert-true (tn) (boolean? (string>=? (string-copy "abc") "abc")))

76

(assert-true (tn) (boolean? (string>=? (string-copy "abc")

77

(string-copy "abc"))))

78

(tn "string-ci<? string mutability acceptance")

79

(assert-true (tn) (boolean? (string-ci<? "abc" "abc")))

80

(assert-true (tn) (boolean? (string-ci<? "abc" (string-copy "abc"))))

81

(assert-true (tn) (boolean? (string-ci<? (string-copy "abc") "abc")))

82

(assert-true (tn) (boolean? (string-ci<? (string-copy "abc")

83

(string-copy "abc"))))

84

(tn "string>? string mutability acceptance")

85

(assert-true (tn) (boolean? (string-ci>? "abc" "abc")))

86

(assert-true (tn) (boolean? (string-ci>? "abc" (string-copy "abc"))))

87

(assert-true (tn) (boolean? (string-ci>? (string-copy "abc") "abc")))

88

(assert-true (tn) (boolean? (string-ci>? (string-copy "abc")

89

(string-copy "abc"))))

90

(tn "string<=? string mutability acceptance")

91

(assert-true (tn) (boolean? (string-ci<=? "abc" "abc")))

92

(assert-true (tn) (boolean? (string-ci<=? "abc" (string-copy "abc"))))

93

(assert-true (tn) (boolean? (string-ci<=? (string-copy "abc") "abc")))

94

(assert-true (tn) (boolean? (string-ci<=? (string-copy "abc")

95

(string-copy "abc"))))

96

(tn "string>=? string mutability acceptance")

97

(assert-true (tn) (boolean? (string-ci>=? "abc" "abc")))

98

(assert-true (tn) (boolean? (string-ci>=? "abc" (string-copy "abc"))))

99

(assert-true (tn) (boolean? (string-ci>=? (string-copy "abc") "abc")))

100

(assert-true (tn) (boolean? (string-ci>=? (string-copy "abc")

101

(string-copy "abc"))))

102

103

;;

104

;; comparison

105

;;

106

107

;; string-ci=?

108

(tn "string-ci=? \"\"")

109

(assert-true (tn) (string-ci=? "" ""))

110

(assert-false (tn) (string-ci=? "" "\n"))

111

(assert-false (tn) (string-ci=? "" " "))

112

(assert-false (tn) (string-ci=? "" "!"))

113

(assert-false (tn) (string-ci=? "" "0"))

114

(assert-false (tn) (string-ci=? "" "9"))

115

(assert-false (tn) (string-ci=? "" "A"))

116

(assert-false (tn) (string-ci=? "" "B"))

117

(assert-false (tn) (string-ci=? "" "Z"))

118

(assert-false (tn) (string-ci=? "" "_"))

119

(assert-false (tn) (string-ci=? "" "a"))

120

(assert-false (tn) (string-ci=? "" "b"))

121

(assert-false (tn) (string-ci=? "" "z"))

122

(assert-false (tn) (string-ci=? "" "~"))

123

(assert-false (tn) (string-ci=? "" "\x7f"))

124

(tn "string-ci=? \"\\n\"")

125

(assert-false (tn) (string-ci=? "\n" ""))

126

(assert-true (tn) (string-ci=? "\n" "\n"))

127

(assert-false (tn) (string-ci=? "\n" " "))

128

(assert-false (tn) (string-ci=? "\n" "!"))

129

(assert-false (tn) (string-ci=? "\n" "0"))

130

(assert-false (tn) (string-ci=? "\n" "9"))

131

(assert-false (tn) (string-ci=? "\n" "A"))

132

(assert-false (tn) (string-ci=? "\n" "B"))

133

(assert-false (tn) (string-ci=? "\n" "Z"))

134

(assert-false (tn) (string-ci=? "\n" "_"))

135

(assert-false (tn) (string-ci=? "\n" "a"))

136

(assert-false (tn) (string-ci=? "\n" "b"))

137

(assert-false (tn) (string-ci=? "\n" "z"))

138

(assert-false (tn) (string-ci=? "\n" "~"))

139

(assert-false (tn) (string-ci=? "\n" "\x7f"))

140

(tn "string-ci=? \" \"")

141

(assert-false (tn) (string-ci=? " " ""))

142

(assert-false (tn) (string-ci=? " " "\n"))

143

(assert-true (tn) (string-ci=? " " " "))

144

(assert-false (tn) (string-ci=? " " "!"))

145

(assert-false (tn) (string-ci=? " " "0"))

146

(assert-false (tn) (string-ci=? " " "9"))

147

(assert-false (tn) (string-ci=? " " "A"))

148

(assert-false (tn) (string-ci=? " " "B"))

149

(assert-false (tn) (string-ci=? " " "Z"))

150

(assert-false (tn) (string-ci=? " " "_"))

151

(assert-false (tn) (string-ci=? " " "a"))

152

(assert-false (tn) (string-ci=? " " "b"))

153

(assert-false (tn) (string-ci=? " " "z"))

154

(assert-false (tn) (string-ci=? " " "~"))

155

(assert-false (tn) (string-ci=? " " "\x7f"))

156

(tn "string-ci=? \"!\"")

157

(assert-false (tn) (string-ci=? "!" ""))

158

(assert-false (tn) (string-ci=? "!" "\n"))

159

(assert-false (tn) (string-ci=? "!" " "))

160

(assert-true (tn) (string-ci=? "!" "!"))

161

(assert-false (tn) (string-ci=? "!" "0"))

162

(assert-false (tn) (string-ci=? "!" "9"))

163

(assert-false (tn) (string-ci=? "!" "A"))

164

(assert-false (tn) (string-ci=? "!" "B"))

165

(assert-false (tn) (string-ci=? "!" "Z"))

166

(assert-false (tn) (string-ci=? "!" "_"))

167

(assert-false (tn) (string-ci=? "!" "a"))

168

(assert-false (tn) (string-ci=? "!" "b"))

169

(assert-false (tn) (string-ci=? "!" "z"))

170

(assert-false (tn) (string-ci=? "!" "~"))

171

(assert-false (tn) (string-ci=? "!" "\x7f"))

172

(tn "string-ci=? \"0\"")

173

(assert-false (tn) (string-ci=? "0" ""))

174

(assert-false (tn) (string-ci=? "0" "\n"))

175

(assert-false (tn) (string-ci=? "0" " "))

176

(assert-false (tn) (string-ci=? "0" "!"))

177

(assert-true (tn) (string-ci=? "0" "0"))

178

(assert-false (tn) (string-ci=? "0" "9"))

179

(assert-false (tn) (string-ci=? "0" "A"))

180

(assert-false (tn) (string-ci=? "0" "B"))

181

(assert-false (tn) (string-ci=? "0" "Z"))

182

(assert-false (tn) (string-ci=? "0" "_"))

183

(assert-false (tn) (string-ci=? "0" "a"))

184

(assert-false (tn) (string-ci=? "0" "b"))

185

(assert-false (tn) (string-ci=? "0" "z"))

186

(assert-false (tn) (string-ci=? "0" "~"))

187

(assert-false (tn) (string-ci=? "0" "\x7f"))

188

(tn "string-ci=? \"9\"")

189

(assert-false (tn) (string-ci=? "9" ""))

190

(assert-false (tn) (string-ci=? "9" "\n"))

191

(assert-false (tn) (string-ci=? "9" " "))

192

(assert-false (tn) (string-ci=? "9" "!"))

193

(assert-false (tn) (string-ci=? "9" "0"))

194

(assert-true (tn) (string-ci=? "9" "9"))

195

(assert-false (tn) (string-ci=? "9" "A"))

196

(assert-false (tn) (string-ci=? "9" "B"))

197

(assert-false (tn) (string-ci=? "9" "Z"))

198

(assert-false (tn) (string-ci=? "9" "_"))

199

(assert-false (tn) (string-ci=? "9" "a"))

200

(assert-false (tn) (string-ci=? "9" "b"))

201

(assert-false (tn) (string-ci=? "9" "z"))

202

(assert-false (tn) (string-ci=? "9" "~"))

203

(assert-false (tn) (string-ci=? "9" "\x7f"))

204

(tn "string-ci=? \"A\"")

205

(assert-false (tn) (string-ci=? "A" ""))

206

(assert-false (tn) (string-ci=? "A" "\n"))

207

(assert-false (tn) (string-ci=? "A" " "))

208

(assert-false (tn) (string-ci=? "A" "!"))

209

(assert-false (tn) (string-ci=? "A" "0"))

210

(assert-false (tn) (string-ci=? "A" "9"))

211

(assert-true (tn) (string-ci=? "A" "A"))

212

(assert-false (tn) (string-ci=? "A" "B"))

213

(assert-false (tn) (string-ci=? "A" "Z"))

214

(assert-false (tn) (string-ci=? "A" "_"))

215

(assert-true (tn) (string-ci=? "A" "a"))

216

(assert-false (tn) (string-ci=? "A" "b"))

217

(assert-false (tn) (string-ci=? "A" "z"))

218

(assert-false (tn) (string-ci=? "A" "~"))

219

(assert-false (tn) (string-ci=? "A" "\x7f"))

220

(tn "string-ci=? \"B\"")

221

(assert-false (tn) (string-ci=? "B" ""))

222

(assert-false (tn) (string-ci=? "B" "\n"))

223

(assert-false (tn) (string-ci=? "B" " "))

224

(assert-false (tn) (string-ci=? "B" "!"))

225

(assert-false (tn) (string-ci=? "B" "0"))

226

(assert-false (tn) (string-ci=? "B" "9"))

227

(assert-false (tn) (string-ci=? "B" "A"))

228

(assert-true (tn) (string-ci=? "B" "B"))

229

(assert-false (tn) (string-ci=? "B" "Z"))

230

(assert-false (tn) (string-ci=? "B" "_"))

231

(assert-false (tn) (string-ci=? "B" "a"))

232

(assert-true (tn) (string-ci=? "B" "b"))

233

(assert-false (tn) (string-ci=? "B" "z"))

234

(assert-false (tn) (string-ci=? "B" "~"))

235

(assert-false (tn) (string-ci=? "B" "\x7f"))

236

(tn "string-ci=? \"Z\"")

237

(assert-false (tn) (string-ci=? "Z" ""))

238

(assert-false (tn) (string-ci=? "Z" "\n"))

239

(assert-false (tn) (string-ci=? "Z" " "))

240

(assert-false (tn) (string-ci=? "Z" "!"))

241

(assert-false (tn) (string-ci=? "Z" "0"))

242

(assert-false (tn) (string-ci=? "Z" "9"))

243

(assert-false (tn) (string-ci=? "Z" "A"))

244

(assert-false (tn) (string-ci=? "Z" "B"))

245

(assert-true (tn) (string-ci=? "Z" "Z"))

246

(assert-false (tn) (string-ci=? "Z" "_"))

247

(assert-false (tn) (string-ci=? "Z" "a"))

248

(assert-false (tn) (string-ci=? "Z" "b"))

249

(assert-true (tn) (string-ci=? "Z" "z"))

250

(assert-false (tn) (string-ci=? "Z" "~"))

251

(assert-false (tn) (string-ci=? "Z" "\x7f"))

252

(tn "string-ci=? \"_\"")

253

(assert-false (tn) (string-ci=? "_" ""))

254

(assert-false (tn) (string-ci=? "_" "\n"))

255

(assert-false (tn) (string-ci=? "_" " "))

256

(assert-false (tn) (string-ci=? "_" "!"))

257

(assert-false (tn) (string-ci=? "_" "0"))

258

(assert-false (tn) (string-ci=? "_" "9"))

259

(assert-false (tn) (string-ci=? "_" "A"))

260

(assert-false (tn) (string-ci=? "_" "B"))

261

(assert-false (tn) (string-ci=? "_" "Z"))

262

(assert-true (tn) (string-ci=? "_" "_"))

263

(assert-false (tn) (string-ci=? "_" "a"))

264

(assert-false (tn) (string-ci=? "_" "b"))

265

(assert-false (tn) (string-ci=? "_" "z"))

266

(assert-false (tn) (string-ci=? "_" "~"))

267

(assert-false (tn) (string-ci=? "_" "\x7f"))

268

(tn "string-ci=? \"a\"")

269

(assert-false (tn) (string-ci=? "a" ""))

270

(assert-false (tn) (string-ci=? "a" "\n"))

271

(assert-false (tn) (string-ci=? "a" " "))

272

(assert-false (tn) (string-ci=? "a" "!"))

273

(assert-false (tn) (string-ci=? "a" "0"))

274

(assert-false (tn) (string-ci=? "a" "9"))

275

(assert-true (tn) (string-ci=? "a" "A"))

276

(assert-false (tn) (string-ci=? "a" "B"))

277

(assert-false (tn) (string-ci=? "a" "Z"))

278

(assert-false (tn) (string-ci=? "a" "_"))

279

(assert-true (tn) (string-ci=? "a" "a"))

280

(assert-false (tn) (string-ci=? "a" "b"))

281

(assert-false (tn) (string-ci=? "a" "z"))

282

(assert-false (tn) (string-ci=? "a" "~"))

283

(assert-false (tn) (string-ci=? "a" "\x7f"))

284

(tn "string-ci=? \"b\"")

285

(assert-false (tn) (string-ci=? "b" ""))

286

(assert-false (tn) (string-ci=? "b" "\n"))

287

(assert-false (tn) (string-ci=? "b" " "))

288

(assert-false (tn) (string-ci=? "b" "!"))

289

(assert-false (tn) (string-ci=? "b" "0"))

290

(assert-false (tn) (string-ci=? "b" "9"))

291

(assert-false (tn) (string-ci=? "b" "A"))

292

(assert-true (tn) (string-ci=? "b" "B"))

293

(assert-false (tn) (string-ci=? "b" "Z"))

294

(assert-false (tn) (string-ci=? "b" "_"))

295

(assert-false (tn) (string-ci=? "b" "a"))

296

(assert-true (tn) (string-ci=? "b" "b"))

297

(assert-false (tn) (string-ci=? "b" "z"))

298

(assert-false (tn) (string-ci=? "b" "~"))

299

(assert-false (tn) (string-ci=? "b" "\x7f"))

300

(tn "string-ci=? \"z\"")

301

(assert-false (tn) (string-ci=? "z" ""))

302

(assert-false (tn) (string-ci=? "z" "\n"))

303

(assert-false (tn) (string-ci=? "z" " "))

304

(assert-false (tn) (string-ci=? "z" "!"))

305

(assert-false (tn) (string-ci=? "z" "0"))

306

(assert-false (tn) (string-ci=? "z" "9"))

307

(assert-false (tn) (string-ci=? "z" "A"))

308

(assert-false (tn) (string-ci=? "z" "B"))

309

(assert-true (tn) (string-ci=? "z" "Z"))

310

(assert-false (tn) (string-ci=? "z" "_"))

311

(assert-false (tn) (string-ci=? "z" "a"))

312

(assert-false (tn) (string-ci=? "z" "b"))

313

(assert-true (tn) (string-ci=? "z" "z"))

314

(assert-false (tn) (string-ci=? "z" "~"))

315

(assert-false (tn) (string-ci=? "z" "\x7f"))

316

(tn "string-ci=? \"~\"")

317

(assert-false (tn) (string-ci=? "~" ""))

318

(assert-false (tn) (string-ci=? "~" "\n"))

319

(assert-false (tn) (string-ci=? "~" " "))

320

(assert-false (tn) (string-ci=? "~" "!"))

321

(assert-false (tn) (string-ci=? "~" "0"))

322

(assert-false (tn) (string-ci=? "~" "9"))

323

(assert-false (tn) (string-ci=? "~" "A"))

324

(assert-false (tn) (string-ci=? "~" "B"))

325

(assert-false (tn) (string-ci=? "~" "Z"))

326

(assert-false (tn) (string-ci=? "~" "_"))

327

(assert-false (tn) (string-ci=? "~" "a"))

328

(assert-false (tn) (string-ci=? "~" "b"))

329

(assert-false (tn) (string-ci=? "~" "z"))

330

(assert-true (tn) (string-ci=? "~" "~"))

331

(assert-false (tn) (string-ci=? "~" "\x7f"))

332

(tn "string-ci=? \"\\x7f\"")

333

(assert-false (tn) (string-ci=? "\x7f" ""))

334

(assert-false (tn) (string-ci=? "\x7f" "\n"))

335

(assert-false (tn) (string-ci=? "\x7f" " "))

336

(assert-false (tn) (string-ci=? "\x7f" "!"))

337

(assert-false (tn) (string-ci=? "\x7f" "0"))

338

(assert-false (tn) (string-ci=? "\x7f" "9"))

339

(assert-false (tn) (string-ci=? "\x7f" "A"))

340

(assert-false (tn) (string-ci=? "\x7f" "B"))

341

(assert-false (tn) (string-ci=? "\x7f" "Z"))

342

(assert-false (tn) (string-ci=? "\x7f" "_"))

343

(assert-false (tn) (string-ci=? "\x7f" "a"))

344

(assert-false (tn) (string-ci=? "\x7f" "b"))

345

(assert-false (tn) (string-ci=? "\x7f" "z"))

346

(assert-false (tn) (string-ci=? "\x7f" "~"))

347

(assert-true (tn) (string-ci=? "\x7f" "\x7f"))

348

(tn "string-ci=? alphabets")

349

(assert-true (tn) (string-ci=? "aa" "aa"))

350

(assert-true (tn) (string-ci=? "aa" "AA"))

351

(assert-true (tn) (string-ci=? "aa" "aA"))

352

(assert-true (tn) (string-ci=? "aa" "Aa"))

353

(assert-true (tn) (string-ci=? "AA" "aa"))

354

(assert-true (tn) (string-ci=? "aA" "aa"))

355

(assert-true (tn) (string-ci=? "Aa" "aa"))

356

(assert-true (tn) (string-ci=? "abc" "abc"))

357

(assert-true (tn) (string-ci=? "abc" "ABC"))

358

(assert-true (tn) (string-ci=? "abc" "ABc"))

359

(assert-false (tn) (string-ci=? "abc" "abcd"))

360

(assert-true (tn) (string-ci=? "ABC" "abc"))

361

(assert-true (tn) (string-ci=? "ABc" "abc"))

362

(assert-false (tn) (string-ci=? "abcd" "abc"))

363

364

;; string<?

365

(tn "string<? \"\"")

366

(assert-false (tn) (string<? "" ""))

367

(assert-true (tn) (string<? "" "\n"))

368

(assert-true (tn) (string<? "" " "))

369

(assert-true (tn) (string<? "" "!"))

370

(assert-true (tn) (string<? "" "0"))

371

(assert-true (tn) (string<? "" "9"))

372

(assert-true (tn) (string<? "" "A"))

373

(assert-true (tn) (string<? "" "B"))

374

(assert-true (tn) (string<? "" "Z"))

375

(assert-true (tn) (string<? "" "_"))

376

(assert-true (tn) (string<? "" "a"))

377

(assert-true (tn) (string<? "" "b"))

378

(assert-true (tn) (string<? "" "z"))

379

(assert-true (tn) (string<? "" "~"))

380

(assert-true (tn) (string<? "" "\x7f"))

381

(tn "string<? \"\\n\"")

382

(assert-false (tn) (string<? "\n" ""))

383

(assert-false (tn) (string<? "\n" "\n"))

384

(assert-true (tn) (string<? "\n" " "))

385

(assert-true (tn) (string<? "\n" "!"))

386

(assert-true (tn) (string<? "\n" "0"))

387

(assert-true (tn) (string<? "\n" "9"))

388

(assert-true (tn) (string<? "\n" "A"))

389

(assert-true (tn) (string<? "\n" "B"))

390

(assert-true (tn) (string<? "\n" "Z"))

391

(assert-true (tn) (string<? "\n" "_"))

392

(assert-true (tn) (string<? "\n" "a"))

393

(assert-true (tn) (string<? "\n" "b"))

394

(assert-true (tn) (string<? "\n" "z"))

395

(assert-true (tn) (string<? "\n" "~"))

396

(assert-true (tn) (string<? "\n" "\x7f"))

397

(tn "string<? \" \"")

398

(assert-false (tn) (string<? " " ""))

399

(assert-false (tn) (string<? " " "\n"))

400

(assert-false (tn) (string<? " " " "))

401

(assert-true (tn) (string<? " " "!"))

402

(assert-true (tn) (string<? " " "0"))

403

(assert-true (tn) (string<? " " "9"))

404

(assert-true (tn) (string<? " " "A"))

405

(assert-true (tn) (string<? " " "B"))

406

(assert-true (tn) (string<? " " "Z"))

407

(assert-true (tn) (string<? " " "_"))

408

(assert-true (tn) (string<? " " "a"))

409

(assert-true (tn) (string<? " " "b"))

410

(assert-true (tn) (string<? " " "z"))

411

(assert-true (tn) (string<? " " "~"))

412

(assert-true (tn) (string<? " " "\x7f"))

413

(tn "string<? \"!\"")

414

(assert-false (tn) (string<? "!" ""))

415

(assert-false (tn) (string<? "!" "\n"))

416

(assert-false (tn) (string<? "!" " "))

417

(assert-false (tn) (string<? "!" "!"))

418

(assert-true (tn) (string<? "!" "0"))

419

(assert-true (tn) (string<? "!" "9"))

420

(assert-true (tn) (string<? "!" "A"))

421

(assert-true (tn) (string<? "!" "B"))

422

(assert-true (tn) (string<? "!" "Z"))

423

(assert-true (tn) (string<? "!" "_"))

424

(assert-true (tn) (string<? "!" "a"))

425

(assert-true (tn) (string<? "!" "b"))

426

(assert-true (tn) (string<? "!" "z"))

427

(assert-true (tn) (string<? "!" "~"))

428

(assert-true (tn) (string<? "!" "\x7f"))

429

(tn "string<? \"0\"")

430

(assert-false (tn) (string<? "0" ""))

431

(assert-false (tn) (string<? "0" "\n"))

432

(assert-false (tn) (string<? "0" " "))

433

(assert-false (tn) (string<? "0" "!"))

434

(assert-false (tn) (string<? "0" "0"))

435

(assert-true (tn) (string<? "0" "9"))

436

(assert-true (tn) (string<? "0" "A"))

437

(assert-true (tn) (string<? "0" "B"))

438

(assert-true (tn) (string<? "0" "Z"))

439

(assert-true (tn) (string<? "0" "_"))

440

(assert-true (tn) (string<? "0" "a"))

441

(assert-true (tn) (string<? "0" "b"))

442

(assert-true (tn) (string<? "0" "z"))

443

(assert-true (tn) (string<? "0" "~"))

444

(assert-true (tn) (string<? "0" "\x7f"))

445

(tn "string<? \"9\"")

446

(assert-false (tn) (string<? "9" ""))

447

(assert-false (tn) (string<? "9" "\n"))

448

(assert-false (tn) (string<? "9" " "))

449

(assert-false (tn) (string<? "9" "!"))

450

(assert-false (tn) (string<? "9" "0"))

451

(assert-false (tn) (string<? "9" "9"))

452

(assert-true (tn) (string<? "9" "A"))

453

(assert-true (tn) (string<? "9" "B"))

454

(assert-true (tn) (string<? "9" "Z"))

455

(assert-true (tn) (string<? "9" "_"))

456

(assert-true (tn) (string<? "9" "a"))

457

(assert-true (tn) (string<? "9" "b"))

458

(assert-true (tn) (string<? "9" "z"))

459

(assert-true (tn) (string<? "9" "~"))

460

(assert-true (tn) (string<? "9" "\x7f"))

461

(tn "string<? \"A\"")

462

(assert-false (tn) (string<? "A" ""))

463

(assert-false (tn) (string<? "A" "\n"))

464

(assert-false (tn) (string<? "A" " "))

465

(assert-false (tn) (string<? "A" "!"))

466

(assert-false (tn) (string<? "A" "0"))

467

(assert-false (tn) (string<? "A" "9"))

468

(assert-false (tn) (string<? "A" "A"))

469

(assert-true (tn) (string<? "A" "B"))

470

(assert-true (tn) (string<? "A" "Z"))

471

(assert-true (tn) (string<? "A" "_"))

472

(assert-true (tn) (string<? "A" "a"))

473

(assert-true (tn) (string<? "A" "b"))

474

(assert-true (tn) (string<? "A" "z"))

475

(assert-true (tn) (string<? "A" "~"))

476

(assert-true (tn) (string<? "A" "\x7f"))

477

(tn "string<? \"B\"")

478

(assert-false (tn) (string<? "B" ""))

479

(assert-false (tn) (string<? "B" "\n"))

480

(assert-false (tn) (string<? "B" " "))

481

(assert-false (tn) (string<? "B" "!"))

482

(assert-false (tn) (string<? "B" "0"))

483

(assert-false (tn) (string<? "B" "9"))

484

(assert-false (tn) (string<? "B" "A"))

485

(assert-false (tn) (string<? "B" "B"))

486

(assert-true (tn) (string<? "B" "Z"))

487

(assert-true (tn) (string<? "B" "_"))

488

(assert-true (tn) (string<? "B" "a"))

489

(assert-true (tn) (string<? "B" "b"))

490

(assert-true (tn) (string<? "B" "z"))

491

(assert-true (tn) (string<? "B" "~"))

492

(assert-true (tn) (string<? "B" "\x7f"))

493

(tn "string<? \"Z\"")

494

(assert-false (tn) (string<? "Z" ""))

495

(assert-false (tn) (string<? "Z" "\n"))

496

(assert-false (tn) (string<? "Z" " "))

497

(assert-false (tn) (string<? "Z" "!"))

498

(assert-false (tn) (string<? "Z" "0"))

499

(assert-false (tn) (string<? "Z" "9"))

500

(assert-false (tn) (string<? "Z" "A"))

501

(assert-false (tn) (string<? "Z" "B"))

502

(assert-false (tn) (string<? "Z" "Z"))

503

(assert-true (tn) (string<? "Z" "_"))

504

(assert-true (tn) (string<? "Z" "a"))

505

(assert-true (tn) (string<? "Z" "b"))

506

(assert-true (tn) (string<? "Z" "z"))

507

(assert-true (tn) (string<? "Z" "~"))

508

(assert-true (tn) (string<? "Z" "\x7f"))

509

(tn "string<? \"_\"")

510

(assert-false (tn) (string<? "_" ""))

511

(assert-false (tn) (string<? "_" "\n"))

512

(assert-false (tn) (string<? "_" " "))

513

(assert-false (tn) (string<? "_" "!"))

514

(assert-false (tn) (string<? "_" "0"))

515

(assert-false (tn) (string<? "_" "9"))

516

(assert-false (tn) (string<? "_" "A"))

517

(assert-false (tn) (string<? "_" "B"))

518

(assert-false (tn) (string<? "_" "Z"))

519

(assert-false (tn) (string<? "_" "_"))

520

(assert-true (tn) (string<? "_" "a"))

521

(assert-true (tn) (string<? "_" "b"))

522

(assert-true (tn) (string<? "_" "z"))

523

(assert-true (tn) (string<? "_" "~"))

524

(assert-true (tn) (string<? "_" "\x7f"))

525

(tn "string<? \"a\"")

526

(assert-false (tn) (string<? "a" ""))

527

(assert-false (tn) (string<? "a" "\n"))

528

(assert-false (tn) (string<? "a" " "))

529

(assert-false (tn) (string<? "a" "!"))

530

(assert-false (tn) (string<? "a" "0"))

531

(assert-false (tn) (string<? "a" "9"))

532

(assert-false (tn) (string<? "a" "A"))

533

(assert-false (tn) (string<? "a" "B"))

534

(assert-false (tn) (string<? "a" "Z"))

535

(assert-false (tn) (string<? "a" "_"))

536

(assert-false (tn) (string<? "a" "a"))

537

(assert-true (tn) (string<? "a" "b"))

538

(assert-true (tn) (string<? "a" "z"))

539

(assert-true (tn) (string<? "a" "~"))

540

(assert-true (tn) (string<? "a" "\x7f"))

541

(tn "string<? \"b\"")

542

(assert-false (tn) (string<? "b" ""))

543

(assert-false (tn) (string<? "b" "\n"))

544

(assert-false (tn) (string<? "b" " "))

545

(assert-false (tn) (string<? "b" "!"))

546

(assert-false (tn) (string<? "b" "0"))

547

(assert-false (tn) (string<? "b" "9"))

548

(assert-false (tn) (string<? "b" "A"))

549

(assert-false (tn) (string<? "b" "B"))

550

(assert-false (tn) (string<? "b" "Z"))

551

(assert-false (tn) (string<? "b" "_"))

552

(assert-false (tn) (string<? "b" "a"))

553

(assert-false (tn) (string<? "b" "b"))

554

(assert-true (tn) (string<? "b" "z"))

555

(assert-true (tn) (string<? "b" "~"))

556

(assert-true (tn) (string<? "b" "\x7f"))

557

(tn "string<? \"z\"")

558

(assert-false (tn) (string<? "z" ""))

559

(assert-false (tn) (string<? "z" "\n"))

560

(assert-false (tn) (string<? "z" " "))

561

(assert-false (tn) (string<? "z" "!"))

562

(assert-false (tn) (string<? "z" "0"))

563

(assert-false (tn) (string<? "z" "9"))

564

(assert-false (tn) (string<? "z" "A"))

565

(assert-false (tn) (string<? "z" "B"))

566

(assert-false (tn) (string<? "z" "Z"))

567

(assert-false (tn) (string<? "z" "_"))

568

(assert-false (tn) (string<? "z" "a"))

569

(assert-false (tn) (string<? "z" "b"))

570

(assert-false (tn) (string<? "z" "z"))

571

(assert-true (tn) (string<? "z" "~"))

572

(assert-true (tn) (string<? "z" "\x7f"))

573

(tn "string<? \"~\"")

574

(assert-false (tn) (string<? "~" ""))

575

(assert-false (tn) (string<? "~" "\n"))

576

(assert-false (tn) (string<? "~" " "))

577

(assert-false (tn) (string<? "~" "!"))

578

(assert-false (tn) (string<? "~" "0"))

579

(assert-false (tn) (string<? "~" "9"))

580

(assert-false (tn) (string<? "~" "A"))

581

(assert-false (tn) (string<? "~" "B"))

582

(assert-false (tn) (string<? "~" "Z"))

583

(assert-false (tn) (string<? "~" "_"))

584

(assert-false (tn) (string<? "~" "a"))

585

(assert-false (tn) (string<? "~" "b"))

586

(assert-false (tn) (string<? "~" "z"))

587

(assert-false (tn) (string<? "~" "~"))

588

(assert-true (tn) (string<? "~" "\x7f"))

589

(tn "string<? \"\\x7f\"")

590

(assert-false (tn) (string<? "\x7f" ""))

591

(assert-false (tn) (string<? "\x7f" "\n"))

592

(assert-false (tn) (string<? "\x7f" " "))

593

(assert-false (tn) (string<? "\x7f" "!"))

594

(assert-false (tn) (string<? "\x7f" "0"))

595

(assert-false (tn) (string<? "\x7f" "9"))

596

(assert-false (tn) (string<? "\x7f" "A"))

597

(assert-false (tn) (string<? "\x7f" "B"))

598

(assert-false (tn) (string<? "\x7f" "Z"))

599

(assert-false (tn) (string<? "\x7f" "_"))

600

(assert-false (tn) (string<? "\x7f" "a"))

601

(assert-false (tn) (string<? "\x7f" "b"))

602

(assert-false (tn) (string<? "\x7f" "z"))

603

(assert-false (tn) (string<? "\x7f" "~"))

604

(assert-false (tn) (string<? "\x7f" "\x7f"))

605

(tn "string<? alphabets")

606

(assert-false (tn) (string<? "aa" "aa"))

607

(assert-false (tn) (string<? "aa" "AA"))

608

(assert-false (tn) (string<? "aa" "aA"))

609

(assert-false (tn) (string<? "aa" "Aa"))

610

(assert-true (tn) (string<? "AA" "aa"))

611

(assert-true (tn) (string<? "aA" "aa"))

612

(assert-true (tn) (string<? "Aa" "aa"))

613

(assert-false (tn) (string<? "abc" "abc"))

614

(assert-false (tn) (string<? "abc" "ABC"))

615

(assert-false (tn) (string<? "abc" "ABc"))

616

(assert-true (tn) (string<? "abc" "abcd"))

617

(assert-true (tn) (string<? "ABC" "abc"))

618

(assert-true (tn) (string<? "ABc" "abc"))

619

(assert-false (tn) (string<? "abcd" "abc"))

620

621

;; string>?

622

(tn "string>? \"\"")

623

(assert-false (tn) (string>? "" ""))

624

(assert-false (tn) (string>? "" "\n"))

625

(assert-false (tn) (string>? "" " "))

626

(assert-false (tn) (string>? "" "!"))

627

(assert-false (tn) (string>? "" "0"))

628

(assert-false (tn) (string>? "" "9"))

629

(assert-false (tn) (string>? "" "A"))

630

(assert-false (tn) (string>? "" "B"))

631

(assert-false (tn) (string>? "" "Z"))

632

(assert-false (tn) (string>? "" "_"))

633

(assert-false (tn) (string>? "" "a"))

634

(assert-false (tn) (string>? "" "b"))

635

(assert-false (tn) (string>? "" "z"))

636

(assert-false (tn) (string>? "" "~"))

637

(assert-false (tn) (string>? "" "\x7f"))

638

(tn "string>? \"\\n\"")

639

(assert-true (tn) (string>? "\n" ""))

640

(assert-false (tn) (string>? "\n" "\n"))

641

(assert-false (tn) (string>? "\n" " "))

642

(assert-false (tn) (string>? "\n" "!"))

643

(assert-false (tn) (string>? "\n" "0"))

644

(assert-false (tn) (string>? "\n" "9"))

645

(assert-false (tn) (string>? "\n" "A"))

646

(assert-false (tn) (string>? "\n" "B"))

647

(assert-false (tn) (string>? "\n" "Z"))

648

(assert-false (tn) (string>? "\n" "_"))

649

(assert-false (tn) (string>? "\n" "a"))

650

(assert-false (tn) (string>? "\n" "b"))

651

(assert-false (tn) (string>? "\n" "z"))

652

(assert-false (tn) (string>? "\n" "~"))

653

(assert-false (tn) (string>? "\n" "\x7f"))

654

(tn "string>? \" \"")

655

(assert-true (tn) (string>? " " ""))

656

(assert-true (tn) (string>? " " "\n"))

657

(assert-false (tn) (string>? " " " "))

658

(assert-false (tn) (string>? " " "!"))

659

(assert-false (tn) (string>? " " "0"))

660

(assert-false (tn) (string>? " " "9"))

661

(assert-false (tn) (string>? " " "A"))

662

(assert-false (tn) (string>? " " "B"))

663

(assert-false (tn) (string>? " " "Z"))

664

(assert-false (tn) (string>? " " "_"))

665

(assert-false (tn) (string>? " " "a"))

666

(assert-false (tn) (string>? " " "b"))

667

(assert-false (tn) (string>? " " "z"))

668

(assert-false (tn) (string>? " " "~"))

669

(assert-false (tn) (string>? " " "\x7f"))

670

(tn "string>? \"!\"")

671

(assert-true (tn) (string>? "!" ""))

672

(assert-true (tn) (string>? "!" "\n"))

673

(assert-true (tn) (string>? "!" " "))

674

(assert-false (tn) (string>? "!" "!"))

675

(assert-false (tn) (string>? "!" "0"))

676

(assert-false (tn) (string>? "!" "9"))

677

(assert-false (tn) (string>? "!" "A"))

678

(assert-false (tn) (string>? "!" "B"))

679

(assert-false (tn) (string>? "!" "Z"))

680

(assert-false (tn) (string>? "!" "_"))

681

(assert-false (tn) (string>? "!" "a"))

682

(assert-false (tn) (string>? "!" "b"))

683

(assert-false (tn) (string>? "!" "z"))

684

(assert-false (tn) (string>? "!" "~"))

685

(assert-false (tn) (string>? "!" "\x7f"))

686

(tn "string>? \"0\"")

687

(assert-true (tn) (string>? "0" ""))

688

(assert-true (tn) (string>? "0" "\n"))

689

(assert-true (tn) (string>? "0" " "))

690

(assert-true (tn) (string>? "0" "!"))

691

(assert-false (tn) (string>? "0" "0"))

692

(assert-false (tn) (string>? "0" "9"))

693

(assert-false (tn) (string>? "0" "A"))

694

(assert-false (tn) (string>? "0" "B"))

695

(assert-false (tn) (string>? "0" "Z"))

696

(assert-false (tn) (string>? "0" "_"))

697

(assert-false (tn) (string>? "0" "a"))

698

(assert-false (tn) (string>? "0" "b"))

699

(assert-false (tn) (string>? "0" "z"))

700

(assert-false (tn) (string>? "0" "~"))

701

(assert-false (tn) (string>? "0" "\x7f"))

702

(tn "string>? \"9\"")

703

(assert-true (tn) (string>? "9" ""))

704

(assert-true (tn) (string>? "9" "\n"))

705

(assert-true (tn) (string>? "9" " "))

706

(assert-true (tn) (string>? "9" "!"))

707

(assert-true (tn) (string>? "9" "0"))

708

(assert-false (tn) (string>? "9" "9"))

709

(assert-false (tn) (string>? "9" "A"))

710

(assert-false (tn) (string>? "9" "B"))

711

(assert-false (tn) (string>? "9" "Z"))

712

(assert-false (tn) (string>? "9" "_"))

713

(assert-false (tn) (string>? "9" "a"))

714

(assert-false (tn) (string>? "9" "b"))

715

(assert-false (tn) (string>? "9" "z"))

716

(assert-false (tn) (string>? "9" "~"))

717

(assert-false (tn) (string>? "9" "\x7f"))

718

(tn "string>? \"A\"")

719

(assert-true (tn) (string>? "A" ""))

720

(assert-true (tn) (string>? "A" "\n"))

721

(assert-true (tn) (string>? "A" " "))

722

(assert-true (tn) (string>? "A" "!"))

723

(assert-true (tn) (string>? "A" "0"))

724

(assert-true (tn) (string>? "A" "9"))

725

(assert-false (tn) (string>? "A" "A"))

726

(assert-false (tn) (string>? "A" "B"))

727

(assert-false (tn) (string>? "A" "Z"))

728

(assert-false (tn) (string>? "A" "_"))

729

(assert-false (tn) (string>? "A" "a"))

730

(assert-false (tn) (string>? "A" "b"))

731

(assert-false (tn) (string>? "A" "z"))

732

(assert-false (tn) (string>? "A" "~"))

733

(assert-false (tn) (string>? "A" "\x7f"))

734

(tn "string>? \"B\"")

735

(assert-true (tn) (string>? "B" ""))

736

(assert-true (tn) (string>? "B" "\n"))

737

(assert-true (tn) (string>? "B" " "))

738

(assert-true (tn) (string>? "B" "!"))

739

(assert-true (tn) (string>? "B" "0"))

740

(assert-true (tn) (string>? "B" "9"))

741

(assert-true (tn) (string>? "B" "A"))

742

(assert-false (tn) (string>? "B" "B"))

743

(assert-false (tn) (string>? "B" "Z"))

744

(assert-false (tn) (string>? "B" "_"))

745

(assert-false (tn) (string>? "B" "a"))

746

(assert-false (tn) (string>? "B" "b"))

747

(assert-false (tn) (string>? "B" "z"))

748

(assert-false (tn) (string>? "B" "~"))

749

(assert-false (tn) (string>? "B" "\x7f"))

750

(tn "string>? \"Z\"")

751

(assert-true (tn) (string>? "Z" ""))

752

(assert-true (tn) (string>? "Z" "\n"))

753

(assert-true (tn) (string>? "Z" " "))

754

(assert-true (tn) (string>? "Z" "!"))

755

(assert-true (tn) (string>? "Z" "0"))

756

(assert-true (tn) (string>? "Z" "9"))

757

(assert-true (tn) (string>? "Z" "A"))

758

(assert-true (tn) (string>? "Z" "B"))

759

(assert-false (tn) (string>? "Z" "Z"))

760

(assert-false (tn) (string>? "Z" "_"))

761

(assert-false (tn) (string>? "Z" "a"))

762

(assert-false (tn) (string>? "Z" "b"))

763

(assert-false (tn) (string>? "Z" "z"))

764

(assert-false (tn) (string>? "Z" "~"))

765

(assert-false (tn) (string>? "Z" "\x7f"))

766

(tn "string>? \"_\"")

767

(assert-true (tn) (string>? "_" ""))

768

(assert-true (tn) (string>? "_" "\n"))

769

(assert-true (tn) (string>? "_" " "))

770

(assert-true (tn) (string>? "_" "!"))

771

(assert-true (tn) (string>? "_" "0"))

772

(assert-true (tn) (string>? "_" "9"))

773

(assert-true (tn) (string>? "_" "A"))

774

(assert-true (tn) (string>? "_" "B"))

775

(assert-true (tn) (string>? "_" "Z"))

776

(assert-false (tn) (string>? "_" "_"))

777

(assert-false (tn) (string>? "_" "a"))

778

(assert-false (tn) (string>? "_" "b"))

779

(assert-false (tn) (string>? "_" "z"))

780

(assert-false (tn) (string>? "_" "~"))

781

(assert-false (tn) (string>? "_" "\x7f"))

782

(tn "string>? \"a\"")

783

(assert-true (tn) (string>? "a" ""))

784

(assert-true (tn) (string>? "a" "\n"))

785

(assert-true (tn) (string>? "a" " "))

786

(assert-true (tn) (string>? "a" "!"))

787

(assert-true (tn) (string>? "a" "0"))

788

(assert-true (tn) (string>? "a" "9"))

789

(assert-true (tn) (string>? "a" "A"))

790

(assert-true (tn) (string>? "a" "B"))

791

(assert-true (tn) (string>? "a" "Z"))

792

(assert-true (tn) (string>? "a" "_"))

793

(assert-false (tn) (string>? "a" "a"))

794

(assert-false (tn) (string>? "a" "b"))

795

(assert-false (tn) (string>? "a" "z"))

796

(assert-false (tn) (string>? "a" "~"))

797

(assert-false (tn) (string>? "a" "\x7f"))

798

(tn "string>? \"b\"")

799

(assert-true (tn) (string>? "b" ""))

800

(assert-true (tn) (string>? "b" "\n"))

801

(assert-true (tn) (string>? "b" " "))

802

(assert-true (tn) (string>? "b" "!"))

803

(assert-true (tn) (string>? "b" "0"))

804

(assert-true (tn) (string>? "b" "9"))

805

(assert-true (tn) (string>? "b" "A"))

806

(assert-true (tn) (string>? "b" "B"))

807

(assert-true (tn) (string>? "b" "Z"))

808

(assert-true (tn) (string>? "b" "_"))

809

(assert-true (tn) (string>? "b" "a"))

810

(assert-false (tn) (string>? "b" "b"))

811

(assert-false (tn) (string>? "b" "z"))

812

(assert-false (tn) (string>? "b" "~"))

813

(assert-false (tn) (string>? "b" "\x7f"))

814

(tn "string>? \"z\"")

815

(assert-true (tn) (string>? "z" ""))

816

(assert-true (tn) (string>? "z" "\n"))

817

(assert-true (tn) (string>? "z" " "))

818

(assert-true (tn) (string>? "z" "!"))

819

(assert-true (tn) (string>? "z" "0"))

820

(assert-true (tn) (string>? "z" "9"))

821

(assert-true (tn) (string>? "z" "A"))

822

(assert-true (tn) (string>? "z" "B"))

823

(assert-true (tn) (string>? "z" "Z"))

824

(assert-true (tn) (string>? "z" "_"))

825

(assert-true (tn) (string>? "z" "a"))

826

(assert-true (tn) (string>? "z" "b"))

827

(assert-false (tn) (string>? "z" "z"))

828

(assert-false (tn) (string>? "z" "~"))

829

(assert-false (tn) (string>? "z" "\x7f"))

830

(tn "string>? \"~\"")

831

(assert-true (tn) (string>? "~" ""))

832

(assert-true (tn) (string>? "~" "\n"))

833

(assert-true (tn) (string>? "~" " "))

834

(assert-true (tn) (string>? "~" "!"))

835

(assert-true (tn) (string>? "~" "0"))

836

(assert-true (tn) (string>? "~" "9"))

837

(assert-true (tn) (string>? "~" "A"))

838

(assert-true (tn) (string>? "~" "B"))

839

(assert-true (tn) (string>? "~" "Z"))

840

(assert-true (tn) (string>? "~" "_"))

841

(assert-true (tn) (string>? "~" "a"))

842

(assert-true (tn) (string>? "~" "b"))

843

(assert-true (tn) (string>? "~" "z"))

844

(assert-false (tn) (string>? "~" "~"))

845

(assert-false (tn) (string>? "~" "\x7f"))

846

(tn "string>? \"\\x7f\"")

847

(assert-true (tn) (string>? "\x7f" ""))

848

(assert-true (tn) (string>? "\x7f" "\n"))

849

(assert-true (tn) (string>? "\x7f" " "))

850

(assert-true (tn) (string>? "\x7f" "!"))

851

(assert-true (tn) (string>? "\x7f" "0"))

852

(assert-true (tn) (string>? "\x7f" "9"))

853

(assert-true (tn) (string>? "\x7f" "A"))

854

(assert-true (tn) (string>? "\x7f" "B"))

855

(assert-true (tn) (string>? "\x7f" "Z"))

856

(assert-true (tn) (string>? "\x7f" "_"))

857

(assert-true (tn) (string>? "\x7f" "a"))

858

(assert-true (tn) (string>? "\x7f" "b"))

859

(assert-true (tn) (string>? "\x7f" "z"))

860

(assert-true (tn) (string>? "\x7f" "~"))

861

(assert-false (tn) (string>? "\x7f" "\x7f"))

862

(tn "string>? alphabets")

863

(assert-false (tn) (string>? "aa" "aa"))

864

(assert-true (tn) (string>? "aa" "AA"))

865

(assert-true (tn) (string>? "aa" "aA"))

866

(assert-true (tn) (string>? "aa" "Aa"))

867

(assert-false (tn) (string>? "AA" "aa"))

868

(assert-false (tn) (string>? "aA" "aa"))

869

(assert-false (tn) (string>? "Aa" "aa"))

870

(assert-false (tn) (string>? "abc" "abc"))

871

(assert-true (tn) (string>? "abc" "ABC"))

872

(assert-true (tn) (string>? "abc" "ABc"))

873

(assert-false (tn) (string>? "abc" "abcd"))

874

(assert-false (tn) (string>? "ABC" "abc"))

875

(assert-false (tn) (string>? "ABc" "abc"))

876

(assert-true (tn) (string>? "abcd" "abc"))

877

878

;; string<=?

879

(tn "string<=? \"\"")

880

(assert-true (tn) (string<=? "" ""))

881

(assert-true (tn) (string<=? "" "\n"))

882

(assert-true (tn) (string<=? "" " "))

883

(assert-true (tn) (string<=? "" "!"))

884

(assert-true (tn) (string<=? "" "0"))

885

(assert-true (tn) (string<=? "" "9"))

886

(assert-true (tn) (string<=? "" "A"))

887

(assert-true (tn) (string<=? "" "B"))

888

(assert-true (tn) (string<=? "" "Z"))

889

(assert-true (tn) (string<=? "" "_"))

890

(assert-true (tn) (string<=? "" "a"))

891

(assert-true (tn) (string<=? "" "b"))

892

(assert-true (tn) (string<=? "" "z"))

893

(assert-true (tn) (string<=? "" "~"))

894

(assert-true (tn) (string<=? "" "\x7f"))

895

(tn "string<=? \"\\n\"")

896

(assert-false (tn) (string<=? "\n" ""))

897

(assert-true (tn) (string<=? "\n" "\n"))

898

(assert-true (tn) (string<=? "\n" " "))

899

(assert-true (tn) (string<=? "\n" "!"))

900

(assert-true (tn) (string<=? "\n" "0"))

901

(assert-true (tn) (string<=? "\n" "9"))

902

(assert-true (tn) (string<=? "\n" "A"))

903

(assert-true (tn) (string<=? "\n" "B"))

904

(assert-true (tn) (string<=? "\n" "Z"))

905

(assert-true (tn) (string<=? "\n" "_"))

906

(assert-true (tn) (string<=? "\n" "a"))

907

(assert-true (tn) (string<=? "\n" "b"))

908

(assert-true (tn) (string<=? "\n" "z"))

909

(assert-true (tn) (string<=? "\n" "~"))

910

(assert-true (tn) (string<=? "\n" "\x7f"))

911

(tn "string<=? \" \"")

912

(assert-false (tn) (string<=? " " ""))

913

(assert-false (tn) (string<=? " " "\n"))

914

(assert-true (tn) (string<=? " " " "))

915

(assert-true (tn) (string<=? " " "!"))

916

(assert-true (tn) (string<=? " " "0"))

917

(assert-true (tn) (string<=? " " "9"))

918

(assert-true (tn) (string<=? " " "A"))

919

(assert-true (tn) (string<=? " " "B"))

920

(assert-true (tn) (string<=? " " "Z"))

921

(assert-true (tn) (string<=? " " "_"))

922

(assert-true (tn) (string<=? " " "a"))

923

(assert-true (tn) (string<=? " " "b"))

924

(assert-true (tn) (string<=? " " "z"))

925

(assert-true (tn) (string<=? " " "~"))

926

(assert-true (tn) (string<=? " " "\x7f"))

927

(tn "string<=? \"!\"")

928

(assert-false (tn) (string<=? "!" ""))

929

(assert-false (tn) (string<=? "!" "\n"))

930

(assert-false (tn) (string<=? "!" " "))

931

(assert-true (tn) (string<=? "!" "!"))

932

(assert-true (tn) (string<=? "!" "0"))

933

(assert-true (tn) (string<=? "!" "9"))

934

(assert-true (tn) (string<=? "!" "A"))

935

(assert-true (tn) (string<=? "!" "B"))

936

(assert-true (tn) (string<=? "!" "Z"))

937

(assert-true (tn) (string<=? "!" "_"))

938

(assert-true (tn) (string<=? "!" "a"))

939

(assert-true (tn) (string<=? "!" "b"))

940

(assert-true (tn) (string<=? "!" "z"))

941

(assert-true (tn) (string<=? "!" "~"))

942

(assert-true (tn) (string<=? "!" "\x7f"))

943

(tn "string<=? \"0\"")

944

(assert-false (tn) (string<=? "0" ""))

945

(assert-false (tn) (string<=? "0" "\n"))

946

(assert-false (tn) (string<=? "0" " "))

947

(assert-false (tn) (string<=? "0" "!"))

948

(assert-true (tn) (string<=? "0" "0"))

949

(assert-true (tn) (string<=? "0" "9"))

950

(assert-true (tn) (string<=? "0" "A"))

951

(assert-true (tn) (string<=? "0" "B"))

952

(assert-true (tn) (string<=? "0" "Z"))

953

(assert-true (tn) (string<=? "0" "_"))

954

(assert-true (tn) (string<=? "0" "a"))

955

(assert-true (tn) (string<=? "0" "b"))

956

(assert-true (tn) (string<=? "0" "z"))

957

(assert-true (tn) (string<=? "0" "~"))

958

(assert-true (tn) (string<=? "0" "\x7f"))

959

(tn "string<=? \"9\"")

960

(assert-false (tn) (string<=? "9" ""))

961

(assert-false (tn) (string<=? "9" "\n"))

962

(assert-false (tn) (string<=? "9" " "))

963

(assert-false (tn) (string<=? "9" "!"))

964

(assert-false (tn) (string<=? "9" "0"))

965

(assert-true (tn) (string<=? "9" "9"))

966

(assert-true (tn) (string<=? "9" "A"))

967

(assert-true (tn) (string<=? "9" "B"))

968

(assert-true (tn) (string<=? "9" "Z"))

969

(assert-true (tn) (string<=? "9" "_"))

970

(assert-true (tn) (string<=? "9" "a"))

971

(assert-true (tn) (string<=? "9" "b"))

972

(assert-true (tn) (string<=? "9" "z"))

973

(assert-true (tn) (string<=? "9" "~"))

974

(assert-true (tn) (string<=? "9" "\x7f"))

975

(tn "string<=? \"A\"")

976

(assert-false (tn) (string<=? "A" ""))

977

(assert-false (tn) (string<=? "A" "\n"))

978

(assert-false (tn) (string<=? "A" " "))

979

(assert-false (tn) (string<=? "A" "!"))

980

(assert-false (tn) (string<=? "A" "0"))

981

(assert-false (tn) (string<=? "A" "9"))

982

(assert-true (tn) (string<=? "A" "A"))

983

(assert-true (tn) (string<=? "A" "B"))

984

(assert-true (tn) (string<=? "A" "Z"))

985

(assert-true (tn) (string<=? "A" "_"))

986

(assert-true (tn) (string<=? "A" "a"))

987

(assert-true (tn) (string<=? "A" "b"))

988

(assert-true (tn) (string<=? "A" "z"))

989

(assert-true (tn) (string<=? "A" "~"))

990

(assert-true (tn) (string<=? "A" "\x7f"))

991

(tn "string<=? \"B\"")

992

(assert-false (tn) (string<=? "B" ""))

993

(assert-false (tn) (string<=? "B" "\n"))

994

(assert-false (tn) (string<=? "B" " "))

995

(assert-false (tn) (string<=? "B" "!"))

996

(assert-false (tn) (string<=? "B" "0"))

997

(assert-false (tn) (string<=? "B" "9"))

998

(assert-false (tn) (string<=? "B" "A"))

999

(assert-true (tn) (string<=? "B" "B"))

1000

(assert-true (tn) (string<=? "B" "Z"))

1001

(assert-true (tn) (string<=? "B" "_"))

1002

(assert-true (tn) (string<=? "B" "a"))

1003

(assert-true (tn) (string<=? "B" "b"))

1004

(assert-true (tn) (string<=? "B" "z"))

1005

(assert-true (tn) (string<=? "B" "~"))

1006

(assert-true (tn) (string<=? "B" "\x7f"))

1007

(tn "string<=? \"Z\"")

1008

(assert-false (tn) (string<=? "Z" ""))

1009

(assert-false (tn) (string<=? "Z" "\n"))

1010

(assert-false (tn) (string<=? "Z" " "))

1011

(assert-false (tn) (string<=? "Z" "!"))

1012

(assert-false (tn) (string<=? "Z" "0"))

1013

(assert-false (tn) (string<=? "Z" "9"))

1014

(assert-false (tn) (string<=? "Z" "A"))

1015

(assert-false (tn) (string<=? "Z" "B"))

1016

(assert-true (tn) (string<=? "Z" "Z"))

1017

(assert-true (tn) (string<=? "Z" "_"))

1018

(assert-true (tn) (string<=? "Z" "a"))

1019

(assert-true (tn) (string<=? "Z" "b"))

1020

(assert-true (tn) (string<=? "Z" "z"))

1021

(assert-true (tn) (string<=? "Z" "~"))

1022

(assert-true (tn) (string<=? "Z" "\x7f"))

1023

(tn "string<=? \"_\"")

1024

(assert-false (tn) (string<=? "_" ""))

1025

(assert-false (tn) (string<=? "_" "\n"))

1026

(assert-false (tn) (string<=? "_" " "))

1027

(assert-false (tn) (string<=? "_" "!"))

1028

(assert-false (tn) (string<=? "_" "0"))

1029

(assert-false (tn) (string<=? "_" "9"))

1030

(assert-false (tn) (string<=? "_" "A"))

1031

(assert-false (tn) (string<=? "_" "B"))

1032

(assert-false (tn) (string<=? "_" "Z"))

1033

(assert-true (tn) (string<=? "_" "_"))

1034

(assert-true (tn) (string<=? "_" "a"))

1035

(assert-true (tn) (string<=? "_" "b"))

1036

(assert-true (tn) (string<=? "_" "z"))

1037

(assert-true (tn) (string<=? "_" "~"))

1038

(assert-true (tn) (string<=? "_" "\x7f"))

1039

(tn "string<=? \"a\"")

1040

(assert-false (tn) (string<=? "a" ""))

1041

(assert-false (tn) (string<=? "a" "\n"))

1042

(assert-false (tn) (string<=? "a" " "))

1043

(assert-false (tn) (string<=? "a" "!"))

1044

(assert-false (tn) (string<=? "a" "0"))

1045

(assert-false (tn) (string<=? "a" "9"))

1046

(assert-false (tn) (string<=? "a" "A"))

1047

(assert-false (tn) (string<=? "a" "B"))

1048

(assert-false (tn) (string<=? "a" "Z"))

1049

(assert-false (tn) (string<=? "a" "_"))

1050

(assert-true (tn) (string<=? "a" "a"))

1051

(assert-true (tn) (string<=? "a" "b"))

1052

(assert-true (tn) (string<=? "a" "z"))

1053

(assert-true (tn) (string<=? "a" "~"))

1054

(assert-true (tn) (string<=? "a" "\x7f"))

1055

(tn "string<=? \"b\"")

1056

(assert-false (tn) (string<=? "b" ""))

1057

(assert-false (tn) (string<=? "b" "\n"))

1058

(assert-false (tn) (string<=? "b" " "))

1059

(assert-false (tn) (string<=? "b" "!"))

1060

(assert-false (tn) (string<=? "b" "0"))

1061

(assert-false (tn) (string<=? "b" "9"))

1062

(assert-false (tn) (string<=? "b" "A"))

1063

(assert-false (tn) (string<=? "b" "B"))

1064

(assert-false (tn) (string<=? "b" "Z"))

1065

(assert-false (tn) (string<=? "b" "_"))

1066

(assert-false (tn) (string<=? "b" "a"))

1067

(assert-true (tn) (string<=? "b" "b"))

1068

(assert-true (tn) (string<=? "b" "z"))

1069

(assert-true (tn) (string<=? "b" "~"))

1070

(assert-true (tn) (string<=? "b" "\x7f"))

1071

(tn "string<=? \"z\"")

1072

(assert-false (tn) (string<=? "z" ""))

1073

(assert-false (tn) (string<=? "z" "\n"))

1074

(assert-false (tn) (string<=? "z" " "))

1075

(assert-false (tn) (string<=? "z" "!"))

1076

(assert-false (tn) (string<=? "z" "0"))

1077

(assert-false (tn) (string<=? "z" "9"))

1078

(assert-false (tn) (string<=? "z" "A"))

1079

(assert-false (tn) (string<=? "z" "B"))

1080

(assert-false (tn) (string<=? "z" "Z"))

1081

(assert-false (tn) (string<=? "z" "_"))

1082

(assert-false (tn) (string<=? "z" "a"))

1083

(assert-false (tn) (string<=? "z" "b"))

1084

(assert-true (tn) (string<=? "z" "z"))

1085

(assert-true (tn) (string<=? "z" "~"))

1086

(assert-true (tn) (string<=? "z" "\x7f"))

1087

(tn "string<=? \"~\"")

1088

(assert-false (tn) (string<=? "~" ""))

1089

(assert-false (tn) (string<=? "~" "\n"))

1090

(assert-false (tn) (string<=? "~" " "))

1091

(assert-false (tn) (string<=? "~" "!"))

1092

(assert-false (tn) (string<=? "~" "0"))

1093

(assert-false (tn) (string<=? "~" "9"))

1094

(assert-false (tn) (string<=? "~" "A"))

1095

(assert-false (tn) (string<=? "~" "B"))

1096

(assert-false (tn) (string<=? "~" "Z"))

1097

(assert-false (tn) (string<=? "~" "_"))

1098

(assert-false (tn) (string<=? "~" "a"))

1099

(assert-false (tn) (string<=? "~" "b"))

1100

(assert-false (tn) (string<=? "~" "z"))

1101

(assert-true (tn) (string<=? "~" "~"))

1102

(assert-true (tn) (string<=? "~" "\x7f"))

1103

(tn "string<=? \"\\x7f\"")

1104

(assert-false (tn) (string<=? "\x7f" ""))

1105

(assert-false (tn) (string<=? "\x7f" "\n"))

1106

(assert-false (tn) (string<=? "\x7f" " "))

1107

(assert-false (tn) (string<=? "\x7f" "!"))

1108

(assert-false (tn) (string<=? "\x7f" "0"))

1109

(assert-false (tn) (string<=? "\x7f" "9"))

1110

(assert-false (tn) (string<=? "\x7f" "A"))

1111

(assert-false (tn) (string<=? "\x7f" "B"))

1112

(assert-false (tn) (string<=? "\x7f" "Z"))

1113

(assert-false (tn) (string<=? "\x7f" "_"))

1114

(assert-false (tn) (string<=? "\x7f" "a"))

1115

(assert-false (tn) (string<=? "\x7f" "b"))

1116

(assert-false (tn) (string<=? "\x7f" "z"))

1117

(assert-false (tn) (string<=? "\x7f" "~"))

1118

(assert-true (tn) (string<=? "\x7f" "\x7f"))

1119

(tn "string<=? alphabets")

1120

(assert-true (tn) (string<=? "aa" "aa"))

1121

(assert-false (tn) (string<=? "aa" "AA"))

1122

(assert-false (tn) (string<=? "aa" "aA"))

1123

(assert-false (tn) (string<=? "aa" "Aa"))

1124

(assert-true (tn) (string<=? "AA" "aa"))

1125

(assert-true (tn) (string<=? "aA" "aa"))

1126

(assert-true (tn) (string<=? "Aa" "aa"))

1127

(assert-true (tn) (string<=? "abc" "abc"))

1128

(assert-false (tn) (string<=? "abc" "ABC"))

1129

(assert-false (tn) (string<=? "abc" "ABc"))

1130

(assert-true (tn) (string<=? "abc" "abcd"))

1131

(assert-true (tn) (string<=? "ABC" "abc"))

1132

(assert-true (tn) (string<=? "ABc" "abc"))

1133

(assert-false (tn) (string<=? "abcd" "abc"))

1134

1135

;; string>=?

1136

(tn "string>=? \"\"")

1137

(assert-true (tn) (string>=? "" ""))

1138

(assert-false (tn) (string>=? "" "\n"))

1139

(assert-false (tn) (string>=? "" " "))

1140

(assert-false (tn) (string>=? "" "!"))

1141

(assert-false (tn) (string>=? "" "0"))

1142

(assert-false (tn) (string>=? "" "9"))

1143

(assert-false (tn) (string>=? "" "A"))

1144

(assert-false (tn) (string>=? "" "B"))

1145

(assert-false (tn) (string>=? "" "Z"))

1146

(assert-false (tn) (string>=? "" "_"))

1147

(assert-false (tn) (string>=? "" "a"))

1148

(assert-false (tn) (string>=? "" "b"))

1149

(assert-false (tn) (string>=? "" "z"))

1150

(assert-false (tn) (string>=? "" "~"))

1151

(assert-false (tn) (string>=? "" "\x7f"))

1152

(tn "string>=? \"\\n\"")

1153

(assert-true (tn) (string>=? "\n" ""))

1154

(assert-true (tn) (string>=? "\n" "\n"))

1155

(assert-false (tn) (string>=? "\n" " "))

1156

(assert-false (tn) (string>=? "\n" "!"))

1157

(assert-false (tn) (string>=? "\n" "0"))

1158

(assert-false (tn) (string>=? "\n" "9"))

1159

(assert-false (tn) (string>=? "\n" "A"))

1160

(assert-false (tn) (string>=? "\n" "B"))

1161

(assert-false (tn) (string>=? "\n" "Z"))

1162

(assert-false (tn) (string>=? "\n" "_"))

1163

(assert-false (tn) (string>=? "\n" "a"))

1164

(assert-false (tn) (string>=? "\n" "b"))

1165

(assert-false (tn) (string>=? "\n" "z"))

1166

(assert-false (tn) (string>=? "\n" "~"))

1167

(assert-false (tn) (string>=? "\n" "\x7f"))

1168

(tn "string>=? \" \"")

1169

(assert-true (tn) (string>=? " " ""))

1170

(assert-true (tn) (string>=? " " "\n"))

1171

(assert-true (tn) (string>=? " " " "))

1172

(assert-false (tn) (string>=? " " "!"))

1173

(assert-false (tn) (string>=? " " "0"))

1174

(assert-false (tn) (string>=? " " "9"))

1175

(assert-false (tn) (string>=? " " "A"))

1176

(assert-false (tn) (string>=? " " "B"))

1177

(assert-false (tn) (string>=? " " "Z"))

1178

(assert-false (tn) (string>=? " " "_"))

1179

(assert-false (tn) (string>=? " " "a"))

1180

(assert-false (tn) (string>=? " " "b"))

1181

(assert-false (tn) (string>=? " " "z"))

1182

(assert-false (tn) (string>=? " " "~"))

1183

(assert-false (tn) (string>=? " " "\x7f"))

1184

(tn "string>=? \"!\"")

1185

(assert-true (tn) (string>=? "!" ""))

1186

(assert-true (tn) (string>=? "!" "\n"))

1187

(assert-true (tn) (string>=? "!" " "))

1188

(assert-true (tn) (string>=? "!" "!"))

1189

(assert-false (tn) (string>=? "!" "0"))

1190

(assert-false (tn) (string>=? "!" "9"))

1191

(assert-false (tn) (string>=? "!" "A"))

1192

(assert-false (tn) (string>=? "!" "B"))

1193

(assert-false (tn) (string>=? "!" "Z"))

1194

(assert-false (tn) (string>=? "!" "_"))

1195

(assert-false (tn) (string>=? "!" "a"))

1196

(assert-false (tn) (string>=? "!" "b"))

1197

(assert-false (tn) (string>=? "!" "z"))

1198

(assert-false (tn) (string>=? "!" "~"))

1199

(assert-false (tn) (string>=? "!" "\x7f"))

1200

(tn "string>=? \"0\"")

1201

(assert-true (tn) (string>=? "0" ""))

1202

(assert-true (tn) (string>=? "0" "\n"))

1203

(assert-true (tn) (string>=? "0" " "))

1204

(assert-true (tn) (string>=? "0" "!"))

1205

(assert-true (tn) (string>=? "0" "0"))

1206

(assert-false (tn) (string>=? "0" "9"))

1207

(assert-false (tn) (string>=? "0" "A"))

1208

(assert-false (tn) (string>=? "0" "B"))

1209

(assert-false (tn) (string>=? "0" "Z"))

1210

(assert-false (tn) (string>=? "0" "_"))

1211

(assert-false (tn) (string>=? "0" "a"))

1212

(assert-false (tn) (string>=? "0" "b"))

1213

(assert-false (tn) (string>=? "0" "z"))

1214

(assert-false (tn) (string>=? "0" "~"))

1215

(assert-false (tn) (string>=? "0" "\x7f"))

1216

(tn "string>=? \"9\"")

1217

(assert-true (tn) (string>=? "9" ""))

1218

(assert-true (tn) (string>=? "9" "\n"))

1219

(assert-true (tn) (string>=? "9" " "))

1220

(assert-true (tn) (string>=? "9" "!"))

1221

(assert-true (tn) (string>=? "9" "0"))

1222

(assert-true (tn) (string>=? "9" "9"))

1223

(assert-false (tn) (string>=? "9" "A"))

1224

(assert-false (tn) (string>=? "9" "B"))

1225

(assert-false (tn) (string>=? "9" "Z"))

1226

(assert-false (tn) (string>=? "9" "_"))

1227

(assert-false (tn) (string>=? "9" "a"))

1228

(assert-false (tn) (string>=? "9" "b"))

1229

(assert-false (tn) (string>=? "9" "z"))

1230

(assert-false (tn) (string>=? "9" "~"))

1231

(assert-false (tn) (string>=? "9" "\x7f"))

1232

(tn "string>=? \"A\"")

1233

(assert-true (tn) (string>=? "A" ""))

1234

(assert-true (tn) (string>=? "A" "\n"))

1235

(assert-true (tn) (string>=? "A" " "))

1236

(assert-true (tn) (string>=? "A" "!"))

1237

(assert-true (tn) (string>=? "A" "0"))

1238

(assert-true (tn) (string>=? "A" "9"))

1239

(assert-true (tn) (string>=? "A" "A"))

1240

(assert-false (tn) (string>=? "A" "B"))

1241

(assert-false (tn) (string>=? "A" "Z"))

1242

(assert-false (tn) (string>=? "A" "_"))

1243

(assert-false (tn) (string>=? "A" "a"))

1244

(assert-false (tn) (string>=? "A" "b"))

1245

(assert-false (tn) (string>=? "A" "z"))

1246

(assert-false (tn) (string>=? "A" "~"))

1247

(assert-false (tn) (string>=? "A" "\x7f"))

1248

(tn "string>=? \"B\"")

1249

(assert-true (tn) (string>=? "B" ""))

1250

(assert-true (tn) (string>=? "B" "\n"))

1251

(assert-true (tn) (string>=? "B" " "))

1252

(assert-true (tn) (string>=? "B" "!"))

1253

(assert-true (tn) (string>=? "B" "0"))

1254

(assert-true (tn) (string>=? "B" "9"))

1255

(assert-true (tn) (string>=? "B" "A"))

1256

(assert-true (tn) (string>=? "B" "B"))

1257

(assert-false (tn) (string>=? "B" "Z"))

1258

(assert-false (tn) (string>=? "B" "_"))

1259

(assert-false (tn) (string>=? "B" "a"))

1260

(assert-false (tn) (string>=? "B" "b"))

1261

(assert-false (tn) (string>=? "B" "z"))

1262

(assert-false (tn) (string>=? "B" "~"))

1263

(assert-false (tn) (string>=? "B" "\x7f"))

1264

(tn "string>=? \"Z\"")

1265

(assert-true (tn) (string>=? "Z" ""))

1266

(assert-true (tn) (string>=? "Z" "\n"))

1267

(assert-true (tn) (string>=? "Z" " "))

1268

(assert-true (tn) (string>=? "Z" "!"))

1269

(assert-true (tn) (string>=? "Z" "0"))

1270

(assert-true (tn) (string>=? "Z" "9"))

1271

(assert-true (tn) (string>=? "Z" "A"))

1272

(assert-true (tn) (string>=? "Z" "B"))

1273

(assert-true (tn) (string>=? "Z" "Z"))

1274

(assert-false (tn) (string>=? "Z" "_"))

1275

(assert-false (tn) (string>=? "Z" "a"))

1276

(assert-false (tn) (string>=? "Z" "b"))

1277

(assert-false (tn) (string>=? "Z" "z"))

1278

(assert-false (tn) (string>=? "Z" "~"))

1279

(assert-false (tn) (string>=? "Z" "\x7f"))

1280

(tn "string>=? \"_\"")

1281

(assert-true (tn) (string>=? "_" ""))

1282

(assert-true (tn) (string>=? "_" "\n"))

1283

(assert-true (tn) (string>=? "_" " "))

1284

(assert-true (tn) (string>=? "_" "!"))

1285

(assert-true (tn) (string>=? "_" "0"))

1286

(assert-true (tn) (string>=? "_" "9"))

1287

(assert-true (tn) (string>=? "_" "A"))

1288

(assert-true (tn) (string>=? "_" "B"))

1289

(assert-true (tn) (string>=? "_" "Z"))

1290

(assert-true (tn) (string>=? "_" "_"))

1291

(assert-false (tn) (string>=? "_" "a"))

1292

(assert-false (tn) (string>=? "_" "b"))

1293

(assert-false (tn) (string>=? "_" "z"))

1294

(assert-false (tn) (string>=? "_" "~"))

1295

(assert-false (tn) (string>=? "_" "\x7f"))

1296

(tn "string>=? \"a\"")

1297

(assert-true (tn) (string>=? "a" ""))

1298

(assert-true (tn) (string>=? "a" "\n"))

1299

(assert-true (tn) (string>=? "a" " "))

1300

(assert-true (tn) (string>=? "a" "!"))

1301

(assert-true (tn) (string>=? "a" "0"))

1302

(assert-true (tn) (string>=? "a" "9"))

1303

(assert-true (tn) (string>=? "a" "A"))

1304

(assert-true (tn) (string>=? "a" "B"))

1305

(assert-true (tn) (string>=? "a" "Z"))

1306

(assert-true (tn) (string>=? "a" "_"))

1307

(assert-true (tn) (string>=? "a" "a"))

1308

(assert-false (tn) (string>=? "a" "b"))

1309

(assert-false (tn) (string>=? "a" "z"))

1310

(assert-false (tn) (string>=? "a" "~"))

1311

(assert-false (tn) (string>=? "a" "\x7f"))

1312

(tn "string>=? \"b\"")

1313

(assert-true (tn) (string>=? "b" ""))

1314

(assert-true (tn) (string>=? "b" "\n"))

1315

(assert-true (tn) (string>=? "b" " "))

1316

(assert-true (tn) (string>=? "b" "!"))

1317

(assert-true (tn) (string>=? "b" "0"))

1318

(assert-true (tn) (string>=? "b" "9"))

1319

(assert-true (tn) (string>=? "b" "A"))

1320

(assert-true (tn) (string>=? "b" "B"))

1321

(assert-true (tn) (string>=? "b" "Z"))

1322

(assert-true (tn) (string>=? "b" "_"))

1323

(assert-true (tn) (string>=? "b" "a"))

1324

(assert-true (tn) (string>=? "b" "b"))

1325

(assert-false (tn) (string>=? "b" "z"))

1326

(assert-false (tn) (string>=? "b" "~"))

1327

(assert-false (tn) (string>=? "b" "\x7f"))

1328

(tn "string>=? \"z\"")

1329

(assert-true (tn) (string>=? "z" ""))

1330

(assert-true (tn) (string>=? "z" "\n"))

1331

(assert-true (tn) (string>=? "z" " "))

1332

(assert-true (tn) (string>=? "z" "!"))

1333

(assert-true (tn) (string>=? "z" "0"))

1334

(assert-true (tn) (string>=? "z" "9"))

1335

(assert-true (tn) (string>=? "z" "A"))

1336

(assert-true (tn) (string>=? "z" "B"))

1337

(assert-true (tn) (string>=? "z" "Z"))

1338

(assert-true (tn) (string>=? "z" "_"))

1339

(assert-true (tn) (string>=? "z" "a"))

1340

(assert-true (tn) (string>=? "z" "b"))

1341

(assert-true (tn) (string>=? "z" "z"))

1342

(assert-false (tn) (string>=? "z" "~"))

1343

(assert-false (tn) (string>=? "z" "\x7f"))

1344

(tn "string>=? \"~\"")

1345

(assert-true (tn) (string>=? "~" ""))

1346

(assert-true (tn) (string>=? "~" "\n"))

1347

(assert-true (tn) (string>=? "~" " "))

1348

(assert-true (tn) (string>=? "~" "!"))

1349

(assert-true (tn) (string>=? "~" "0"))

1350

(assert-true (tn) (string>=? "~" "9"))

1351

(assert-true (tn) (string>=? "~" "A"))

1352

(assert-true (tn) (string>=? "~" "B"))

1353

(assert-true (tn) (string>=? "~" "Z"))

1354

(assert-true (tn) (string>=? "~" "_"))

1355

(assert-true (tn) (string>=? "~" "a"))

1356

(assert-true (tn) (string>=? "~" "b"))

1357

(assert-true (tn) (string>=? "~" "z"))

1358

(assert-true (tn) (string>=? "~" "~"))

1359

(assert-false (tn) (string>=? "~" "\x7f"))

1360

(tn "string>=? \"\\x7f\"")

1361

(assert-true (tn) (string>=? "\x7f" ""))

1362

(assert-true (tn) (string>=? "\x7f" "\n"))

1363

(assert-true (tn) (string>=? "\x7f" " "))

1364

(assert-true (tn) (string>=? "\x7f" "!"))

1365

(assert-true (tn) (string>=? "\x7f" "0"))

1366

(assert-true (tn) (string>=? "\x7f" "9"))

1367

(assert-true (tn) (string>=? "\x7f" "A"))

1368

(assert-true (tn) (string>=? "\x7f" "B"))

1369

(assert-true (tn) (string>=? "\x7f" "Z"))

1370

(assert-true (tn) (string>=? "\x7f" "_"))

1371

(assert-true (tn) (string>=? "\x7f" "a"))

1372

(assert-true (tn) (string>=? "\x7f" "b"))

1373

(assert-true (tn) (string>=? "\x7f" "z"))

1374

(assert-true (tn) (string>=? "\x7f" "~"))

1375

(assert-true (tn) (string>=? "\x7f" "\x7f"))

1376

(tn "string>=? alphabets")

1377

(assert-true (tn) (string>=? "aa" "aa"))

1378

(assert-true (tn) (string>=? "aa" "AA"))

1379

(assert-true (tn) (string>=? "aa" "aA"))

1380

(assert-true (tn) (string>=? "aa" "Aa"))

1381

(assert-false (tn) (string>=? "AA" "aa"))

1382

(assert-false (tn) (string>=? "aA" "aa"))

1383

(assert-false (tn) (string>=? "Aa" "aa"))

1384

(assert-true (tn) (string>=? "abc" "abc"))

1385

(assert-true (tn) (string>=? "abc" "ABC"))

1386

(assert-true (tn) (string>=? "abc" "ABc"))

1387

(assert-false (tn) (string>=? "abc" "abcd"))

1388

(assert-false (tn) (string>=? "ABC" "abc"))

1389

(assert-false (tn) (string>=? "ABc" "abc"))

1390

(assert-true (tn) (string>=? "abcd" "abc"))

1391

1392

;; string-ci<?

1393

(tn "string-ci<? \"\"")

1394

(assert-false (tn) (string-ci<? "" ""))

1395

(assert-true (tn) (string-ci<? "" "\n"))

1396

(assert-true (tn) (string-ci<? "" " "))

1397

(assert-true (tn) (string-ci<? "" "!"))

1398

(assert-true (tn) (string-ci<? "" "0"))

1399

(assert-true (tn) (string-ci<? "" "9"))

1400

(assert-true (tn) (string-ci<? "" "A"))

1401

(assert-true (tn) (string-ci<? "" "B"))

1402

(assert-true (tn) (string-ci<? "" "Z"))

1403

(assert-true (tn) (string-ci<? "" "_"))

1404

(assert-true (tn) (string-ci<? "" "a"))

1405

(assert-true (tn) (string-ci<? "" "b"))

1406

(assert-true (tn) (string-ci<? "" "z"))

1407

(assert-true (tn) (string-ci<? "" "~"))

1408

(assert-true (tn) (string-ci<? "" "\x7f"))

1409

(tn "string-ci<? \"\\n\"")

1410

(assert-false (tn) (string-ci<? "\n" ""))

1411

(assert-false (tn) (string-ci<? "\n" "\n"))

1412

(assert-true (tn) (string-ci<? "\n" " "))

1413

(assert-true (tn) (string-ci<? "\n" "!"))

1414

(assert-true (tn) (string-ci<? "\n" "0"))

1415

(assert-true (tn) (string-ci<? "\n" "9"))

1416

(assert-true (tn) (string-ci<? "\n" "A"))

1417

(assert-true (tn) (string-ci<? "\n" "B"))

1418

(assert-true (tn) (string-ci<? "\n" "Z"))

1419

(assert-true (tn) (string-ci<? "\n" "_"))

1420

(assert-true (tn) (string-ci<? "\n" "a"))

1421

(assert-true (tn) (string-ci<? "\n" "b"))

1422

(assert-true (tn) (string-ci<? "\n" "z"))

1423

(assert-true (tn) (string-ci<? "\n" "~"))

1424

(assert-true (tn) (string-ci<? "\n" "\x7f"))

1425

(tn "string-ci<? \" \"")

1426

(assert-false (tn) (string-ci<? " " ""))

1427

(assert-false (tn) (string-ci<? " " "\n"))

1428

(assert-false (tn) (string-ci<? " " " "))

1429

(assert-true (tn) (string-ci<? " " "!"))

1430

(assert-true (tn) (string-ci<? " " "0"))

1431

(assert-true (tn) (string-ci<? " " "9"))

1432

(assert-true (tn) (string-ci<? " " "A"))

1433

(assert-true (tn) (string-ci<? " " "B"))

1434

(assert-true (tn) (string-ci<? " " "Z"))

1435

(assert-true (tn) (string-ci<? " " "_"))

1436

(assert-true (tn) (string-ci<? " " "a"))

1437

(assert-true (tn) (string-ci<? " " "b"))

1438

(assert-true (tn) (string-ci<? " " "z"))

1439

(assert-true (tn) (string-ci<? " " "~"))

1440

(assert-true (tn) (string-ci<? " " "\x7f"))

1441

(tn "string-ci<? \"!\"")

1442

(assert-false (tn) (string-ci<? "!" ""))

1443

(assert-false (tn) (string-ci<? "!" "\n"))

1444

(assert-false (tn) (string-ci<? "!" " "))

1445

(assert-false (tn) (string-ci<? "!" "!"))

1446

(assert-true (tn) (string-ci<? "!" "0"))

1447

(assert-true (tn) (string-ci<? "!" "9"))

1448

(assert-true (tn) (string-ci<? "!" "A"))

1449

(assert-true (tn) (string-ci<? "!" "B"))

1450

(assert-true (tn) (string-ci<? "!" "Z"))

1451

(assert-true (tn) (string-ci<? "!" "_"))

1452

(assert-true (tn) (string-ci<? "!" "a"))

1453

(assert-true (tn) (string-ci<? "!" "b"))

1454

(assert-true (tn) (string-ci<? "!" "z"))

1455

(assert-true (tn) (string-ci<? "!" "~"))

1456

(assert-true (tn) (string-ci<? "!" "\x7f"))

1457

(tn "string-ci<? \"0\"")

1458

(assert-false (tn) (string-ci<? "0" ""))

1459

(assert-false (tn) (string-ci<? "0" "\n"))

1460

(assert-false (tn) (string-ci<? "0" " "))

1461

(assert-false (tn) (string-ci<? "0" "!"))

1462

(assert-false (tn) (string-ci<? "0" "0"))

1463

(assert-true (tn) (string-ci<? "0" "9"))

1464

(assert-true (tn) (string-ci<? "0" "A"))

1465

(assert-true (tn) (string-ci<? "0" "B"))

1466

(assert-true (tn) (string-ci<? "0" "Z"))

1467

(assert-true (tn) (string-ci<? "0" "_"))

1468

(assert-true (tn) (string-ci<? "0" "a"))

1469

(assert-true (tn) (string-ci<? "0" "b"))

1470

(assert-true (tn) (string-ci<? "0" "z"))

1471

(assert-true (tn) (string-ci<? "0" "~"))

1472

(assert-true (tn) (string-ci<? "0" "\x7f"))

1473

(tn "string-ci<? \"9\"")

1474

(assert-false (tn) (string-ci<? "9" ""))

1475

(assert-false (tn) (string-ci<? "9" "\n"))

1476

(assert-false (tn) (string-ci<? "9" " "))

1477

(assert-false (tn) (string-ci<? "9" "!"))

1478

(assert-false (tn) (string-ci<? "9" "0"))

1479

(assert-false (tn) (string-ci<? "9" "9"))

1480

(assert-true (tn) (string-ci<? "9" "A"))

1481

(assert-true (tn) (string-ci<? "9" "B"))

1482

(assert-true (tn) (string-ci<? "9" "Z"))

1483

(assert-true (tn) (string-ci<? "9" "_"))

1484

(assert-true (tn) (string-ci<? "9" "a"))

1485

(assert-true (tn) (string-ci<? "9" "b"))

1486

(assert-true (tn) (string-ci<? "9" "z"))

1487

(assert-true (tn) (string-ci<? "9" "~"))

1488

(assert-true (tn) (string-ci<? "9" "\x7f"))

1489

(tn "string-ci<? \"A\"")

1490

(assert-false (tn) (string-ci<? "A" ""))

1491

(assert-false (tn) (string-ci<? "A" "\n"))

1492

(assert-false (tn) (string-ci<? "A" " "))

1493

(assert-false (tn) (string-ci<? "A" "!"))

1494

(assert-false (tn) (string-ci<? "A" "0"))

1495

(assert-false (tn) (string-ci<? "A" "9"))

1496

(assert-false (tn) (string-ci<? "A" "A"))

1497

(assert-true (tn) (string-ci<? "A" "B"))

1498

(assert-true (tn) (string-ci<? "A" "Z"))

1499

(assert-false (tn) (string-ci<? "A" "_"))

1500

(assert-false (tn) (string-ci<? "A" "a"))

1501

(assert-true (tn) (string-ci<? "A" "b"))

1502

(assert-true (tn) (string-ci<? "A" "z"))

1503

(assert-true (tn) (string-ci<? "A" "~"))

1504

(assert-true (tn) (string-ci<? "A" "\x7f"))

1505

(tn "string-ci<? \"B\"")

1506

(assert-false (tn) (string-ci<? "B" ""))

1507

(assert-false (tn) (string-ci<? "B" "\n"))

1508

(assert-false (tn) (string-ci<? "B" " "))

1509

(assert-false (tn) (string-ci<? "B" "!"))

1510

(assert-false (tn) (string-ci<? "B" "0"))

1511

(assert-false (tn) (string-ci<? "B" "9"))

1512

(assert-false (tn) (string-ci<? "B" "A"))

1513

(assert-false (tn) (string-ci<? "B" "B"))

1514

(assert-true (tn) (string-ci<? "B" "Z"))

1515

(assert-false (tn) (string-ci<? "B" "_"))

1516

(assert-false (tn) (string-ci<? "B" "a"))

1517

(assert-false (tn) (string-ci<? "B" "b"))

1518

(assert-true (tn) (string-ci<? "B" "z"))

1519

(assert-true (tn) (string-ci<? "B" "~"))

1520

(assert-true (tn) (string-ci<? "B" "\x7f"))

1521

(tn "string-ci<? \"Z\"")

1522

(assert-false (tn) (string-ci<? "Z" ""))

1523

(assert-false (tn) (string-ci<? "Z" "\n"))

1524

(assert-false (tn) (string-ci<? "Z" " "))

1525

(assert-false (tn) (string-ci<? "Z" "!"))

1526

(assert-false (tn) (string-ci<? "Z" "0"))

1527

(assert-false (tn) (string-ci<? "Z" "9"))

1528

(assert-false (tn) (string-ci<? "Z" "A"))

1529

(assert-false (tn) (string-ci<? "Z" "B"))

1530

(assert-false (tn) (string-ci<? "Z" "Z"))

1531

(assert-false (tn) (string-ci<? "Z" "_"))

1532

(assert-false (tn) (string-ci<? "Z" "a"))

1533

(assert-false (tn) (string-ci<? "Z" "b"))

1534

(assert-false (tn) (string-ci<? "Z" "z"))

1535

(assert-true (tn) (string-ci<? "Z" "~"))

1536

(assert-true (tn) (string-ci<? "Z" "\x7f"))

1537

(tn "string-ci<? \"_\"")

1538

(assert-false (tn) (string-ci<? "_" ""))

1539

(assert-false (tn) (string-ci<? "_" "\n"))

1540

(assert-false (tn) (string-ci<? "_" " "))

1541

(assert-false (tn) (string-ci<? "_" "!"))

1542

(assert-false (tn) (string-ci<? "_" "0"))

1543

(assert-false (tn) (string-ci<? "_" "9"))

1544

(assert-true (tn) (string-ci<? "_" "A"))

1545

(assert-true (tn) (string-ci<? "_" "B"))

1546

(assert-true (tn) (string-ci<? "_" "Z"))

1547

(assert-false (tn) (string-ci<? "_" "_"))

1548

(assert-true (tn) (string-ci<? "_" "a"))

1549

(assert-true (tn) (string-ci<? "_" "b"))

1550

(assert-true (tn) (string-ci<? "_" "z"))

1551

(assert-true (tn) (string-ci<? "_" "~"))

1552

(assert-true (tn) (string-ci<? "_" "\x7f"))

1553

(tn "string-ci<? \"a\"")

1554

(assert-false (tn) (string-ci<? "a" ""))

1555

(assert-false (tn) (string-ci<? "a" "\n"))

1556

(assert-false (tn) (string-ci<? "a" " "))

1557

(assert-false (tn) (string-ci<? "a" "!"))

1558

(assert-false (tn) (string-ci<? "a" "0"))

1559

(assert-false (tn) (string-ci<? "a" "9"))

1560

(assert-false (tn) (string-ci<? "a" "A"))

1561

(assert-true (tn) (string-ci<? "a" "B"))

1562

(assert-true (tn) (string-ci<? "a" "Z"))

1563

(assert-false (tn) (string-ci<? "a" "_"))

1564

(assert-false (tn) (string-ci<? "a" "a"))

1565

(assert-true (tn) (string-ci<? "a" "b"))

1566

(assert-true (tn) (string-ci<? "a" "z"))

1567

(assert-true (tn) (string-ci<? "a" "~"))

1568

(assert-true (tn) (string-ci<? "a" "\x7f"))

1569

(tn "string-ci<? \"b\"")

1570

(assert-false (tn) (string-ci<? "b" ""))

1571

(assert-false (tn) (string-ci<? "b" "\n"))

1572

(assert-false (tn) (string-ci<? "b" " "))

1573

(assert-false (tn) (string-ci<? "b" "!"))

1574

(assert-false (tn) (string-ci<? "b" "0"))

1575

(assert-false (tn) (string-ci<? "b" "9"))

1576

(assert-false (tn) (string-ci<? "b" "A"))

1577

(assert-false (tn) (string-ci<? "b" "B"))

1578

(assert-true (tn) (string-ci<? "b" "Z"))

1579

(assert-false (tn) (string-ci<? "b" "_"))

1580

(assert-false (tn) (string-ci<? "b" "a"))

1581

(assert-false (tn) (string-ci<? "b" "b"))

1582

(assert-true (tn) (string-ci<? "b" "z"))

1583

(assert-true (tn) (string-ci<? "b" "~"))

1584

(assert-true (tn) (string-ci<? "b" "\x7f"))

1585

(tn "string-ci<? \"z\"")

1586

(assert-false (tn) (string-ci<? "z" ""))

1587

(assert-false (tn) (string-ci<? "z" "\n"))

1588

(assert-false (tn) (string-ci<? "z" " "))

1589

(assert-false (tn) (string-ci<? "z" "!"))

1590

(assert-false (tn) (string-ci<? "z" "0"))

1591

(assert-false (tn) (string-ci<? "z" "9"))

1592

(assert-false (tn) (string-ci<? "z" "A"))

1593

(assert-false (tn) (string-ci<? "z" "B"))

1594

(assert-false (tn) (string-ci<? "z" "Z"))

1595

(assert-false (tn) (string-ci<? "z" "_"))

1596

(assert-false (tn) (string-ci<? "z" "a"))

1597

(assert-false (tn) (string-ci<? "z" "b"))

1598

(assert-false (tn) (string-ci<? "z" "z"))

1599

(assert-true (tn) (string-ci<? "z" "~"))

1600

(assert-true (tn) (string-ci<? "z" "\x7f"))

1601

(tn "string-ci<? \"~\"")

1602

(assert-false (tn) (string-ci<? "~" ""))

1603

(assert-false (tn) (string-ci<? "~" "\n"))

1604

(assert-false (tn) (string-ci<? "~" " "))

1605

(assert-false (tn) (string-ci<? "~" "!"))

1606

(assert-false (tn) (string-ci<? "~" "0"))

1607

(assert-false (tn) (string-ci<? "~" "9"))

1608

(assert-false (tn) (string-ci<? "~" "A"))

1609

(assert-false (tn) (string-ci<? "~" "B"))

1610

(assert-false (tn) (string-ci<? "~" "Z"))

1611

(assert-false (tn) (string-ci<? "~" "_"))

1612

(assert-false (tn) (string-ci<? "~" "a"))

1613

(assert-false (tn) (string-ci<? "~" "b"))

1614

(assert-false (tn) (string-ci<? "~" "z"))

1615

(assert-false (tn) (string-ci<? "~" "~"))

1616

(assert-true (tn) (string-ci<? "~" "\x7f"))

1617

(tn "string-ci<? \"\\x7f\"")

1618

(assert-false (tn) (string-ci<? "\x7f" ""))

1619

(assert-false (tn) (string-ci<? "\x7f" "\n"))

1620

(assert-false (tn) (string-ci<? "\x7f" " "))

1621

(assert-false (tn) (string-ci<? "\x7f" "!"))

1622

(assert-false (tn) (string-ci<? "\x7f" "0"))

1623

(assert-false (tn) (string-ci<? "\x7f" "9"))

1624

(assert-false (tn) (string-ci<? "\x7f" "A"))

1625

(assert-false (tn) (string-ci<? "\x7f" "B"))

1626

(assert-false (tn) (string-ci<? "\x7f" "Z"))

1627

(assert-false (tn) (string-ci<? "\x7f" "_"))

1628

(assert-false (tn) (string-ci<? "\x7f" "a"))

1629

(assert-false (tn) (string-ci<? "\x7f" "b"))

1630

(assert-false (tn) (string-ci<? "\x7f" "z"))

1631

(assert-false (tn) (string-ci<? "\x7f" "~"))

1632

(assert-false (tn) (string-ci<? "\x7f" "\x7f"))

1633

(tn "string-ci<? alphabets")

1634

(assert-false (tn) (string-ci<? "aa" "aa"))

1635

(assert-false (tn) (string-ci<? "aa" "AA"))

1636

(assert-false (tn) (string-ci<? "aa" "aA"))

1637

(assert-false (tn) (string-ci<? "aa" "Aa"))

1638

(assert-false (tn) (string-ci<? "AA" "aa"))

1639

(assert-false (tn) (string-ci<? "aA" "aa"))

1640

(assert-false (tn) (string-ci<? "Aa" "aa"))

1641

(assert-false (tn) (string-ci<? "abc" "abc"))

1642

(assert-false (tn) (string-ci<? "abc" "ABC"))

1643

(assert-false (tn) (string-ci<? "abc" "ABc"))

1644

(assert-true (tn) (string-ci<? "abc" "abcd"))

1645

(assert-false (tn) (string-ci<? "ABC" "abc"))

1646

(assert-false (tn) (string-ci<? "ABc" "abc"))

1647

(assert-false (tn) (string-ci<? "abcd" "abc"))

1648

1649

;; string-ci>?

1650

(tn "string-ci>? \"\"")

1651

(assert-false (tn) (string-ci>? "" ""))

1652

(assert-false (tn) (string-ci>? "" "\n"))

1653

(assert-false (tn) (string-ci>? "" " "))

1654

(assert-false (tn) (string-ci>? "" "!"))

1655

(assert-false (tn) (string-ci>? "" "0"))

1656

(assert-false (tn) (string-ci>? "" "9"))

1657

(assert-false (tn) (string-ci>? "" "A"))

1658

(assert-false (tn) (string-ci>? "" "B"))

1659

(assert-false (tn) (string-ci>? "" "Z"))

1660

(assert-false (tn) (string-ci>? "" "_"))

1661

(assert-false (tn) (string-ci>? "" "a"))

1662

(assert-false (tn) (string-ci>? "" "b"))

1663

(assert-false (tn) (string-ci>? "" "z"))

1664

(assert-false (tn) (string-ci>? "" "~"))

1665

(assert-false (tn) (string-ci>? "" "\x7f"))

1666

(tn "string-ci>? \"\\n\"")

1667

(assert-true (tn) (string-ci>? "\n" ""))

1668

(assert-false (tn) (string-ci>? "\n" "\n"))

1669

(assert-false (tn) (string-ci>? "\n" " "))

1670

(assert-false (tn) (string-ci>? "\n" "!"))

1671

(assert-false (tn) (string-ci>? "\n" "0"))

1672

(assert-false (tn) (string-ci>? "\n" "9"))

1673

(assert-false (tn) (string-ci>? "\n" "A"))

1674

(assert-false (tn) (string-ci>? "\n" "B"))

1675

(assert-false (tn) (string-ci>? "\n" "Z"))

1676

(assert-false (tn) (string-ci>? "\n" "_"))

1677

(assert-false (tn) (string-ci>? "\n" "a"))

1678

(assert-false (tn) (string-ci>? "\n" "b"))

1679

(assert-false (tn) (string-ci>? "\n" "z"))

1680

(assert-false (tn) (string-ci>? "\n" "~"))

1681

(assert-false (tn) (string-ci>? "\n" "\x7f"))

1682

(tn "string-ci>? \" \"")

1683

(assert-true (tn) (string-ci>? " " ""))

1684

(assert-true (tn) (string-ci>? " " "\n"))

1685

(assert-false (tn) (string-ci>? " " " "))

1686

(assert-false (tn) (string-ci>? " " "!"))

1687

(assert-false (tn) (string-ci>? " " "0"))

1688

(assert-false (tn) (string-ci>? " " "9"))

1689

(assert-false (tn) (string-ci>? " " "A"))

1690

(assert-false (tn) (string-ci>? " " "B"))

1691

(assert-false (tn) (string-ci>? " " "Z"))

1692

(assert-false (tn) (string-ci>? " " "_"))

1693

(assert-false (tn) (string-ci>? " " "a"))

1694

(assert-false (tn) (string-ci>? " " "b"))

1695

(assert-false (tn) (string-ci>? " " "z"))

1696

(assert-false (tn) (string-ci>? " " "~"))

1697

(assert-false (tn) (string-ci>? " " "\x7f"))

1698

(tn "string-ci>? \"!\"")

1699

(assert-true (tn) (string-ci>? "!" ""))

1700

(assert-true (tn) (string-ci>? "!" "\n"))

1701

(assert-true (tn) (string-ci>? "!" " "))

1702

(assert-false (tn) (string-ci>? "!" "!"))

1703

(assert-false (tn) (string-ci>? "!" "0"))

1704

(assert-false (tn) (string-ci>? "!" "9"))

1705

(assert-false (tn) (string-ci>? "!" "A"))

1706

(assert-false (tn) (string-ci>? "!" "B"))

1707

(assert-false (tn) (string-ci>? "!" "Z"))

1708

(assert-false (tn) (string-ci>? "!" "_"))

1709

(assert-false (tn) (string-ci>? "!" "a"))

1710

(assert-false (tn) (string-ci>? "!" "b"))

1711

(assert-false (tn) (string-ci>? "!" "z"))

1712

(assert-false (tn) (string-ci>? "!" "~"))

1713

(assert-false (tn) (string-ci>? "!" "\x7f"))

1714

(tn "string-ci>? \"0\"")

1715

(assert-true (tn) (string-ci>? "0" ""))

1716

(assert-true (tn) (string-ci>? "0" "\n"))

1717

(assert-true (tn) (string-ci>? "0" " "))

1718

(assert-true (tn) (string-ci>? "0" "!"))

1719

(assert-false (tn) (string-ci>? "0" "0"))

1720

(assert-false (tn) (string-ci>? "0" "9"))

1721

(assert-false (tn) (string-ci>? "0" "A"))

1722

(assert-false (tn) (string-ci>? "0" "B"))

1723

(assert-false (tn) (string-ci>? "0" "Z"))

1724

(assert-false (tn) (string-ci>? "0" "_"))

1725

(assert-false (tn) (string-ci>? "0" "a"))

1726

(assert-false (tn) (string-ci>? "0" "b"))

1727

(assert-false (tn) (string-ci>? "0" "z"))

1728

(assert-false (tn) (string-ci>? "0" "~"))

1729

(assert-false (tn) (string-ci>? "0" "\x7f"))

1730

(tn "string-ci>? \"9\"")

1731

(assert-true (tn) (string-ci>? "9" ""))

1732

(assert-true (tn) (string-ci>? "9" "\n"))

1733

(assert-true (tn) (string-ci>? "9" " "))

1734

(assert-true (tn) (string-ci>? "9" "!"))

1735

(assert-true (tn) (string-ci>? "9" "0"))

1736

(assert-false (tn) (string-ci>? "9" "9"))

1737

(assert-false (tn) (string-ci>? "9" "A"))

1738

(assert-false (tn) (string-ci>? "9" "B"))

1739

(assert-false (tn) (string-ci>? "9" "Z"))

1740

(assert-false (tn) (string-ci>? "9" "_"))

1741

(assert-false (tn) (string-ci>? "9" "a"))

1742

(assert-false (tn) (string-ci>? "9" "b"))

1743

(assert-false (tn) (string-ci>? "9" "z"))

1744

(assert-false (tn) (string-ci>? "9" "~"))

1745

(assert-false (tn) (string-ci>? "9" "\x7f"))

1746

(tn "string-ci>? \"A\"")

1747

(assert-true (tn) (string-ci>? "A" ""))

1748

(assert-true (tn) (string-ci>? "A" "\n"))

1749

(assert-true (tn) (string-ci>? "A" " "))

1750

(assert-true (tn) (string-ci>? "A" "!"))

1751

(assert-true (tn) (string-ci>? "A" "0"))

1752

(assert-true (tn) (string-ci>? "A" "9"))

1753

(assert-false (tn) (string-ci>? "A" "A"))

1754

(assert-false (tn) (string-ci>? "A" "B"))

1755

(assert-false (tn) (string-ci>? "A" "Z"))

1756

(assert-true (tn) (string-ci>? "A" "_"))

1757

(assert-false (tn) (string-ci>? "A" "a"))

1758

(assert-false (tn) (string-ci>? "A" "b"))

1759

(assert-false (tn) (string-ci>? "A" "z"))

1760

(assert-false (tn) (string-ci>? "A" "~"))

1761

(assert-false (tn) (string-ci>? "A" "\x7f"))

1762

(tn "string-ci>? \"B\"")

1763

(assert-true (tn) (string-ci>? "B" ""))

1764

(assert-true (tn) (string-ci>? "B" "\n"))

1765

(assert-true (tn) (string-ci>? "B" " "))

1766

(assert-true (tn) (string-ci>? "B" "!"))

1767

(assert-true (tn) (string-ci>? "B" "0"))

1768

(assert-true (tn) (string-ci>? "B" "9"))

1769

(assert-true (tn) (string-ci>? "B" "A"))

1770

(assert-false (tn) (string-ci>? "B" "B"))

1771

(assert-false (tn) (string-ci>? "B" "Z"))

1772

(assert-true (tn) (string-ci>? "B" "_"))

1773

(assert-true (tn) (string-ci>? "B" "a"))

1774

(assert-false (tn) (string-ci>? "B" "b"))

1775

(assert-false (tn) (string-ci>? "B" "z"))

1776

(assert-false (tn) (string-ci>? "B" "~"))

1777

(assert-false (tn) (string-ci>? "B" "\x7f"))

1778

(tn "string-ci>? \"Z\"")

1779

(assert-true (tn) (string-ci>? "Z" ""))

1780

(assert-true (tn) (string-ci>? "Z" "\n"))

1781

(assert-true (tn) (string-ci>? "Z" " "))

1782

(assert-true (tn) (string-ci>? "Z" "!"))

1783

(assert-true (tn) (string-ci>? "Z" "0"))

1784

(assert-true (tn) (string-ci>? "Z" "9"))

1785

(assert-true (tn) (string-ci>? "Z" "A"))

1786

(assert-true (tn) (string-ci>? "Z" "B"))

1787

(assert-false (tn) (string-ci>? "Z" "Z"))

1788

(assert-true (tn) (string-ci>? "Z" "_"))

1789

(assert-true (tn) (string-ci>? "Z" "a"))

1790

(assert-true (tn) (string-ci>? "Z" "b"))

1791

(assert-false (tn) (string-ci>? "Z" "z"))

1792

(assert-false (tn) (string-ci>? "Z" "~"))

1793

(assert-false (tn) (string-ci>? "Z" "\x7f"))

1794

(tn "string-ci>? \"_\"")

1795

(assert-true (tn) (string-ci>? "_" ""))

1796

(assert-true (tn) (string-ci>? "_" "\n"))

1797

(assert-true (tn) (string-ci>? "_" " "))

1798

(assert-true (tn) (string-ci>? "_" "!"))

1799

(assert-true (tn) (string-ci>? "_" "0"))

1800

(assert-true (tn) (string-ci>? "_" "9"))

1801

(assert-false (tn) (string-ci>? "_" "A"))

1802

(assert-false (tn) (string-ci>? "_" "B"))

1803

(assert-false (tn) (string-ci>? "_" "Z"))

1804

(assert-false (tn) (string-ci>? "_" "_"))

1805

(assert-false (tn) (string-ci>? "_" "a"))

1806

(assert-false (tn) (string-ci>? "_" "b"))

1807

(assert-false (tn) (string-ci>? "_" "z"))

1808

(assert-false (tn) (string-ci>? "_" "~"))

1809

(assert-false (tn) (string-ci>? "_" "\x7f"))

1810

(tn "string-ci>? \"a\"")

1811

(assert-true (tn) (string-ci>? "a" ""))

1812

(assert-true (tn) (string-ci>? "a" "\n"))

1813

(assert-true (tn) (string-ci>? "a" " "))

1814

(assert-true (tn) (string-ci>? "a" "!"))

1815

(assert-true (tn) (string-ci>? "a" "0"))

1816

(assert-true (tn) (string-ci>? "a" "9"))

1817

(assert-false (tn) (string-ci>? "a" "A"))

1818

(assert-false (tn) (string-ci>? "a" "B"))

1819

(assert-false (tn) (string-ci>? "a" "Z"))

1820

(assert-true (tn) (string-ci>? "a" "_"))

1821

(assert-false (tn) (string-ci>? "a" "a"))

1822

(assert-false (tn) (string-ci>? "a" "b"))

1823

(assert-false (tn) (string-ci>? "a" "z"))

1824

(assert-false (tn) (string-ci>? "a" "~"))

1825

(assert-false (tn) (string-ci>? "a" "\x7f"))

1826

(tn "string-ci>? \"b\"")

1827

(assert-true (tn) (string-ci>? "b" ""))

1828

(assert-true (tn) (string-ci>? "b" "\n"))

1829

(assert-true (tn) (string-ci>? "b" " "))

1830

(assert-true (tn) (string-ci>? "b" "!"))

1831

(assert-true (tn) (string-ci>? "b" "0"))

1832

(assert-true (tn) (string-ci>? "b" "9"))

1833

(assert-true (tn) (string-ci>? "b" "A"))

1834

(assert-false (tn) (string-ci>? "b" "B"))

1835

(assert-false (tn) (string-ci>? "b" "Z"))

1836

(assert-true (tn) (string-ci>? "b" "_"))

1837

(assert-true (tn) (string-ci>? "b" "a"))

1838

(assert-false (tn) (string-ci>? "b" "b"))

1839

(assert-false (tn) (string-ci>? "b" "z"))

1840

(assert-false (tn) (string-ci>? "b" "~"))

1841

(assert-false (tn) (string-ci>? "b" "\x7f"))

1842

(tn "string-ci>? \"z\"")

1843

(assert-true (tn) (string-ci>? "z" ""))

1844

(assert-true (tn) (string-ci>? "z" "\n"))

1845

(assert-true (tn) (string-ci>? "z" " "))

1846

(assert-true (tn) (string-ci>? "z" "!"))

1847

(assert-true (tn) (string-ci>? "z" "0"))

1848

(assert-true (tn) (string-ci>? "z" "9"))

1849

(assert-true (tn) (string-ci>? "z" "A"))

1850

(assert-true (tn) (string-ci>? "z" "B"))

1851

(assert-false (tn) (string-ci>? "z" "Z"))

1852

(assert-true (tn) (string-ci>? "z" "_"))

1853

(assert-true (tn) (string-ci>? "z" "a"))

1854

(assert-true (tn) (string-ci>? "z" "b"))

1855

(assert-false (tn) (string-ci>? "z" "z"))

1856

(assert-false (tn) (string-ci>? "z" "~"))

1857

(assert-false (tn) (string-ci>? "z" "\x7f"))

1858

(tn "string-ci>? \"~\"")

1859

(assert-true (tn) (string-ci>? "~" ""))

1860

(assert-true (tn) (string-ci>? "~" "\n"))

1861

(assert-true (tn) (string-ci>? "~" " "))

1862

(assert-true (tn) (string-ci>? "~" "!"))

1863

(assert-true (tn) (string-ci>? "~" "0"))

1864

(assert-true (tn) (string-ci>? "~" "9"))

1865

(assert-true (tn) (string-ci>? "~" "A"))

1866

(assert-true (tn) (string-ci>? "~" "B"))

1867

(assert-true (tn) (string-ci>? "~" "Z"))

1868

(assert-true (tn) (string-ci>? "~" "_"))

1869

(assert-true (tn) (string-ci>? "~" "a"))

1870

(assert-true (tn) (string-ci>? "~" "b"))

1871

(assert-true (tn) (string-ci>? "~" "z"))

1872

(assert-false (tn) (string-ci>? "~" "~"))

1873

(assert-false (tn) (string-ci>? "~" "\x7f"))

1874

(tn "string-ci>? \"\\x7f\"")

1875

(assert-true (tn) (string-ci>? "\x7f" ""))

1876

(assert-true (tn) (string-ci>? "\x7f" "\n"))

1877

(assert-true (tn) (string-ci>? "\x7f" " "))

1878

(assert-true (tn) (string-ci>? "\x7f" "!"))

1879

(assert-true (tn) (string-ci>? "\x7f" "0"))

1880

(assert-true (tn) (string-ci>? "\x7f" "9"))

1881

(assert-true (tn) (string-ci>? "\x7f" "A"))

1882

(assert-true (tn) (string-ci>? "\x7f" "B"))

1883

(assert-true (tn) (string-ci>? "\x7f" "Z"))

1884

(assert-true (tn) (string-ci>? "\x7f" "_"))

1885

(assert-true (tn) (string-ci>? "\x7f" "a"))

1886

(assert-true (tn) (string-ci>? "\x7f" "b"))

1887

(assert-true (tn) (string-ci>? "\x7f" "z"))

1888

(assert-true (tn) (string-ci>? "\x7f" "~"))

1889

(assert-false (tn) (string-ci>? "\x7f" "\x7f"))

1890

(tn "string-ci>? alphabets")

1891

(assert-false (tn) (string-ci>? "aa" "aa"))

1892

(assert-false (tn) (string-ci>? "aa" "AA"))

1893

(assert-false (tn) (string-ci>? "aa" "aA"))

1894

(assert-false (tn) (string-ci>? "aa" "Aa"))

1895

(assert-false (tn) (string-ci>? "AA" "aa"))

1896

(assert-false (tn) (string-ci>? "aA" "aa"))

1897

(assert-false (tn) (string-ci>? "Aa" "aa"))

1898

(assert-false (tn) (string-ci>? "abc" "abc"))

1899

(assert-false (tn) (string-ci>? "abc" "ABC"))

1900

(assert-false (tn) (string-ci>? "abc" "ABc"))

1901

(assert-false (tn) (string-ci>? "abc" "abcd"))

1902

(assert-false (tn) (string-ci>? "ABC" "abc"))

1903

(assert-false (tn) (string-ci>? "ABc" "abc"))

1904

(assert-true (tn) (string-ci>? "abcd" "abc"))

1905

1906

;; string-ci<=?

1907

(tn "string-ci<=? \"\"")

1908

(assert-true (tn) (string-ci<=? "" ""))

1909

(assert-true (tn) (string-ci<=? "" "\n"))

1910

(assert-true (tn) (string-ci<=? "" " "))

1911

(assert-true (tn) (string-ci<=? "" "!"))

1912

(assert-true (tn) (string-ci<=? "" "0"))

1913

(assert-true (tn) (string-ci<=? "" "9"))

1914

(assert-true (tn) (string-ci<=? "" "A"))

1915

(assert-true (tn) (string-ci<=? "" "B"))

1916

(assert-true (tn) (string-ci<=? "" "Z"))

1917

(assert-true (tn) (string-ci<=? "" "_"))

1918

(assert-true (tn) (string-ci<=? "" "a"))

1919

(assert-true (tn) (string-ci<=? "" "b"))

1920

(assert-true (tn) (string-ci<=? "" "z"))

1921

(assert-true (tn) (string-ci<=? "" "~"))

1922

(assert-true (tn) (string-ci<=? "" "\x7f"))

1923

(tn "string-ci<=? \"\\n\"")

1924

(assert-false (tn) (string-ci<=? "\n" ""))

1925

(assert-true (tn) (string-ci<=? "\n" "\n"))

1926

(assert-true (tn) (string-ci<=? "\n" " "))

1927

(assert-true (tn) (string-ci<=? "\n" "!"))

1928

(assert-true (tn) (string-ci<=? "\n" "0"))

1929

(assert-true (tn) (string-ci<=? "\n" "9"))

1930

(assert-true (tn) (string-ci<=? "\n" "A"))

1931

(assert-true (tn) (string-ci<=? "\n" "B"))

1932

(assert-true (tn) (string-ci<=? "\n" "Z"))

1933

(assert-true (tn) (string-ci<=? "\n" "_"))

1934

(assert-true (tn) (string-ci<=? "\n" "a"))

1935

(assert-true (tn) (string-ci<=? "\n" "b"))

1936

(assert-true (tn) (string-ci<=? "\n" "z"))

1937

(assert-true (tn) (string-ci<=? "\n" "~"))

1938

(assert-true (tn) (string-ci<=? "\n" "\x7f"))

1939

(tn "string-ci<=? \" \"")

1940

(assert-false (tn) (string-ci<=? " " ""))

1941

(assert-false (tn) (string-ci<=? " " "\n"))

1942

(assert-true (tn) (string-ci<=? " " " "))

1943

(assert-true (tn) (string-ci<=? " " "!"))

1944

(assert-true (tn) (string-ci<=? " " "0"))

1945

(assert-true (tn) (string-ci<=? " " "9"))

1946

(assert-true (tn) (string-ci<=? " " "A"))

1947

(assert-true (tn) (string-ci<=? " " "B"))

1948

(assert-true (tn) (string-ci<=? " " "Z"))

1949

(assert-true (tn) (string-ci<=? " " "_"))

1950

(assert-true (tn) (string-ci<=? " " "a"))

1951

(assert-true (tn) (string-ci<=? " " "b"))

1952

(assert-true (tn) (string-ci<=? " " "z"))

1953

(assert-true (tn) (string-ci<=? " " "~"))

1954

(assert-true (tn) (string-ci<=? " " "\x7f"))

1955

(tn "string-ci<=? \"!\"")

1956

(assert-false (tn) (string-ci<=? "!" ""))

1957

(assert-false (tn) (string-ci<=? "!" "\n"))

1958

(assert-false (tn) (string-ci<=? "!" " "))

1959

(assert-true (tn) (string-ci<=? "!" "!"))

1960

(assert-true (tn) (string-ci<=? "!" "0"))

1961

(assert-true (tn) (string-ci<=? "!" "9"))

1962

(assert-true (tn) (string-ci<=? "!" "A"))

1963

(assert-true (tn) (string-ci<=? "!" "B"))

1964

(assert-true (tn) (string-ci<=? "!" "Z"))

1965

(assert-true (tn) (string-ci<=? "!" "_"))

1966

(assert-true (tn) (string-ci<=? "!" "a"))

1967

(assert-true (tn) (string-ci<=? "!" "b"))

1968

(assert-true (tn) (string-ci<=? "!" "z"))

1969

(assert-true (tn) (string-ci<=? "!" "~"))

1970

(assert-true (tn) (string-ci<=? "!" "\x7f"))

1971

(tn "string-ci<=? \"0\"")

1972

(assert-false (tn) (string-ci<=? "0" ""))

1973

(assert-false (tn) (string-ci<=? "0" "\n"))

1974

(assert-false (tn) (string-ci<=? "0" " "))

1975

(assert-false (tn) (string-ci<=? "0" "!"))

1976

(assert-true (tn) (string-ci<=? "0" "0"))

1977

(assert-true (tn) (string-ci<=? "0" "9"))

1978

(assert-true (tn) (string-ci<=? "0" "A"))

1979

(assert-true (tn) (string-ci<=? "0" "B"))

1980

(assert-true (tn) (string-ci<=? "0" "Z"))

1981

(assert-true (tn) (string-ci<=? "0" "_"))

1982

(assert-true (tn) (string-ci<=? "0" "a"))

1983

(assert-true (tn) (string-ci<=? "0" "b"))

1984

(assert-true (tn) (string-ci<=? "0" "z"))

1985

(assert-true (tn) (string-ci<=? "0" "~"))

1986

(assert-true (tn) (string-ci<=? "0" "\x7f"))

1987

(tn "string-ci<=? \"9\"")

1988

(assert-false (tn) (string-ci<=? "9" ""))

1989

(assert-false (tn) (string-ci<=? "9" "\n"))

1990

(assert-false (tn) (string-ci<=? "9" " "))

1991

(assert-false (tn) (string-ci<=? "9" "!"))

1992

(assert-false (tn) (string-ci<=? "9" "0"))

1993

(assert-true (tn) (string-ci<=? "9" "9"))

1994

(assert-true (tn) (string-ci<=? "9" "A"))

1995

(assert-true (tn) (string-ci<=? "9" "B"))

1996

(assert-true (tn) (string-ci<=? "9" "Z"))

1997

(assert-true (tn) (string-ci<=? "9" "_"))

1998

(assert-true (tn) (string-ci<=? "9" "a"))

1999

(assert-true (tn) (string-ci<=? "9" "b"))

2000

(assert-true (tn) (string-ci<=? "9" "z"))

2001

(assert-true (tn) (string-ci<=? "9" "~"))

2002

(assert-true (tn) (string-ci<=? "9" "\x7f"))

2003

(tn "string-ci<=? \"A\"")

2004

(assert-false (tn) (string-ci<=? "A" ""))

2005

(assert-false (tn) (string-ci<=? "A" "\n"))

2006

(assert-false (tn) (string-ci<=? "A" " "))

2007

(assert-false (tn) (string-ci<=? "A" "!"))

2008

(assert-false (tn) (string-ci<=? "A" "0"))

2009

(assert-false (tn) (string-ci<=? "A" "9"))

2010

(assert-true (tn) (string-ci<=? "A" "A"))

2011

(assert-true (tn) (string-ci<=? "A" "B"))

2012

(assert-true (tn) (string-ci<=? "A" "Z"))

2013

(assert-false (tn) (string-ci<=? "A" "_"))

2014

(assert-true (tn) (string-ci<=? "A" "a"))

2015

(assert-true (tn) (string-ci<=? "A" "b"))

2016

(assert-true (tn) (string-ci<=? "A" "z"))

2017

(assert-true (tn) (string-ci<=? "A" "~"))

2018

(assert-true (tn) (string-ci<=? "A" "\x7f"))

2019

(tn "string-ci<=? \"B\"")

2020

(assert-false (tn) (string-ci<=? "B" ""))

2021

(assert-false (tn) (string-ci<=? "B" "\n"))

2022

(assert-false (tn) (string-ci<=? "B" " "))

2023

(assert-false (tn) (string-ci<=? "B" "!"))

2024

(assert-false (tn) (string-ci<=? "B" "0"))

2025

(assert-false (tn) (string-ci<=? "B" "9"))

2026

(assert-false (tn) (string-ci<=? "B" "A"))

2027

(assert-true (tn) (string-ci<=? "B" "B"))

2028

(assert-true (tn) (string-ci<=? "B" "Z"))

2029

(assert-false (tn) (string-ci<=? "B" "_"))

2030

(assert-false (tn) (string-ci<=? "B" "a"))

2031

(assert-true (tn) (string-ci<=? "B" "b"))

2032

(assert-true (tn) (string-ci<=? "B" "z"))

2033

(assert-true (tn) (string-ci<=? "B" "~"))

2034

(assert-true (tn) (string-ci<=? "B" "\x7f"))

2035

(tn "string-ci<=? \"Z\"")

2036

(assert-false (tn) (string-ci<=? "Z" ""))

2037

(assert-false (tn) (string-ci<=? "Z" "\n"))

2038

(assert-false (tn) (string-ci<=? "Z" " "))

2039

(assert-false (tn) (string-ci<=? "Z" "!"))

2040

(assert-false (tn) (string-ci<=? "Z" "0"))

2041

(assert-false (tn) (string-ci<=? "Z" "9"))

2042

(assert-false (tn) (string-ci<=? "Z" "A"))

2043

(assert-false (tn) (string-ci<=? "Z" "B"))

2044

(assert-true (tn) (string-ci<=? "Z" "Z"))

2045

(assert-false (tn) (string-ci<=? "Z" "_"))

2046

(assert-false (tn) (string-ci<=? "Z" "a"))

2047

(assert-false (tn) (string-ci<=? "Z" "b"))

2048

(assert-true (tn) (string-ci<=? "Z" "z"))

2049

(assert-true (tn) (string-ci<=? "Z" "~"))

2050

(assert-true (tn) (string-ci<=? "Z" "\x7f"))

2051

(tn "string-ci<=? \"_\"")

2052

(assert-false (tn) (string-ci<=? "_" ""))

2053

(assert-false (tn) (string-ci<=? "_" "\n"))

2054

(assert-false (tn) (string-ci<=? "_" " "))

2055

(assert-false (tn) (string-ci<=? "_" "!"))

2056

(assert-false (tn) (string-ci<=? "_" "0"))

2057

(assert-false (tn) (string-ci<=? "_" "9"))

2058

(assert-true (tn) (string-ci<=? "_" "A"))

2059

(assert-true (tn) (string-ci<=? "_" "B"))

2060

(assert-true (tn) (string-ci<=? "_" "Z"))

2061

(assert-true (tn) (string-ci<=? "_" "_"))

2062

(assert-true (tn) (string-ci<=? "_" "a"))

2063

(assert-true (tn) (string-ci<=? "_" "b"))

2064

(assert-true (tn) (string-ci<=? "_" "z"))

2065

(assert-true (tn) (string-ci<=? "_" "~"))

2066

(assert-true (tn) (string-ci<=? "_" "\x7f"))

2067

(tn "string-ci<=? \"a\"")

2068

(assert-false (tn) (string-ci<=? "a" ""))

2069

(assert-false (tn) (string-ci<=? "a" "\n"))

2070

(assert-false (tn) (string-ci<=? "a" " "))

2071

(assert-false (tn) (string-ci<=? "a" "!"))

2072

(assert-false (tn) (string-ci<=? "a" "0"))

2073

(assert-false (tn) (string-ci<=? "a" "9"))

2074

(assert-true (tn) (string-ci<=? "a" "A"))

2075

(assert-true (tn) (string-ci<=? "a" "B"))

2076

(assert-true (tn) (string-ci<=? "a" "Z"))

2077

(assert-false (tn) (string-ci<=? "a" "_"))

2078

(assert-true (tn) (string-ci<=? "a" "a"))

2079

(assert-true (tn) (string-ci<=? "a" "b"))

2080

(assert-true (tn) (string-ci<=? "a" "z"))

2081

(assert-true (tn) (string-ci<=? "a" "~"))

2082

(assert-true (tn) (string-ci<=? "a" "\x7f"))

2083

(tn "string-ci<=? \"b\"")

2084

(assert-false (tn) (string-ci<=? "b" ""))

2085

(assert-false (tn) (string-ci<=? "b" "\n"))

2086

(assert-false (tn) (string-ci<=? "b" " "))

2087

(assert-false (tn) (string-ci<=? "b" "!"))

2088

(assert-false (tn) (string-ci<=? "b" "0"))

2089

(assert-false (tn) (string-ci<=? "b" "9"))

2090

(assert-false (tn) (string-ci<=? "b" "A"))

2091

(assert-true (tn) (string-ci<=? "b" "B"))

2092

(assert-true (tn) (string-ci<=? "b" "Z"))

2093

(assert-false (tn) (string-ci<=? "b" "_"))

2094

(assert-false (tn) (string-ci<=? "b" "a"))

2095

(assert-true (tn) (string-ci<=? "b" "b"))

2096

(assert-true (tn) (string-ci<=? "b" "z"))

2097

(assert-true (tn) (string-ci<=? "b" "~"))

2098

(assert-true (tn) (string-ci<=? "b" "\x7f"))

2099

(tn "string-ci<=? \"z\"")

2100

(assert-false (tn) (string-ci<=? "z" ""))

2101

(assert-false (tn) (string-ci<=? "z" "\n"))

2102

(assert-false (tn) (string-ci<=? "z" " "))

2103

(assert-false (tn) (string-ci<=? "z" "!"))

2104

(assert-false (tn) (string-ci<=? "z" "0"))

2105

(assert-false (tn) (string-ci<=? "z" "9"))

2106

(assert-false (tn) (string-ci<=? "z" "A"))

2107

(assert-false (tn) (string-ci<=? "z" "B"))

2108

(assert-true (tn) (string-ci<=? "z" "Z"))

2109

(assert-false (tn) (string-ci<=? "z" "_"))

2110

(assert-false (tn) (string-ci<=? "z" "a"))

2111

(assert-false (tn) (string-ci<=? "z" "b"))

2112

(assert-true (tn) (string-ci<=? "z" "z"))

2113

(assert-true (tn) (string-ci<=? "z" "~"))

2114

(assert-true (tn) (string-ci<=? "z" "\x7f"))

2115

(tn "string-ci<=? \"~\"")

2116

(assert-false (tn) (string-ci<=? "~" ""))

2117

(assert-false (tn) (string-ci<=? "~" "\n"))

2118

(assert-false (tn) (string-ci<=? "~" " "))

2119

(assert-false (tn) (string-ci<=? "~" "!"))

2120

(assert-false (tn) (string-ci<=? "~" "0"))

2121

(assert-false (tn) (string-ci<=? "~" "9"))

2122

(assert-false (tn) (string-ci<=? "~" "A"))

2123

(assert-false (tn) (string-ci<=? "~" "B"))

2124

(assert-false (tn) (string-ci<=? "~" "Z"))

2125

(assert-false (tn) (string-ci<=? "~" "_"))

2126

(assert-false (tn) (string-ci<=? "~" "a"))

2127

(assert-false (tn) (string-ci<=? "~" "b"))

2128

(assert-false (tn) (string-ci<=? "~" "z"))

2129

(assert-true (tn) (string-ci<=? "~" "~"))

2130

(assert-true (tn) (string-ci<=? "~" "\x7f"))

2131

(tn "string-ci<=? \"\\x7f\"")

2132

(assert-false (tn) (string-ci<=? "\x7f" ""))

2133

(assert-false (tn) (string-ci<=? "\x7f" "\n"))

2134

(assert-false (tn) (string-ci<=? "\x7f" " "))

2135

(assert-false (tn) (string-ci<=? "\x7f" "!"))

2136

(assert-false (tn) (string-ci<=? "\x7f" "0"))

2137

(assert-false (tn) (string-ci<=? "\x7f" "9"))

2138

(assert-false (tn) (string-ci<=? "\x7f" "A"))

2139

(assert-false (tn) (string-ci<=? "\x7f" "B"))

2140

(assert-false (tn) (string-ci<=? "\x7f" "Z"))

2141

(assert-false (tn) (string-ci<=? "\x7f" "_"))

2142

(assert-false (tn) (string-ci<=? "\x7f" "a"))

2143

(assert-false (tn) (string-ci<=? "\x7f" "b"))

2144

(assert-false (tn) (string-ci<=? "\x7f" "z"))

2145

(assert-false (tn) (string-ci<=? "\x7f" "~"))

2146

(assert-true (tn) (string-ci<=? "\x7f" "\x7f"))

2147

(tn "string-ci<=? alphabets")

2148

(assert-true (tn) (string-ci<=? "aa" "aa"))

2149

(assert-true (tn) (string-ci<=? "aa" "AA"))

2150

(assert-true (tn) (string-ci<=? "aa" "aA"))

2151

(assert-true (tn) (string-ci<=? "aa" "Aa"))

2152

(assert-true (tn) (string-ci<=? "AA" "aa"))

2153

(assert-true (tn) (string-ci<=? "aA" "aa"))

2154

(assert-true (tn) (string-ci<=? "Aa" "aa"))

2155

(assert-true (tn) (string-ci<=? "abc" "abc"))

2156

(assert-true (tn) (string-ci<=? "abc" "ABC"))

2157

(assert-true (tn) (string-ci<=? "abc" "ABc"))

2158

(assert-true (tn) (string-ci<=? "abc" "abcd"))

2159

(assert-true (tn) (string-ci<=? "ABC" "abc"))

2160

(assert-true (tn) (string-ci<=? "ABc" "abc"))

2161

(assert-false (tn) (string-ci<=? "abcd" "abc"))

2162

2163

;; string-ci>=?

2164

(tn "string-ci>=? \"\"")

2165

(assert-true (tn) (string-ci>=? "" ""))

2166

(assert-false (tn) (string-ci>=? "" "\n"))

2167

(assert-false (tn) (string-ci>=? "" " "))

2168

(assert-false (tn) (string-ci>=? "" "!"))

2169

(assert-false (tn) (string-ci>=? "" "0"))

2170

(assert-false (tn) (string-ci>=? "" "9"))

2171

(assert-false (tn) (string-ci>=? "" "A"))

2172

(assert-false (tn) (string-ci>=? "" "B"))

2173

(assert-false (tn) (string-ci>=? "" "Z"))

2174

(assert-false (tn) (string-ci>=? "" "_"))

2175

(assert-false (tn) (string-ci>=? "" "a"))

2176

(assert-false (tn) (string-ci>=? "" "b"))

2177

(assert-false (tn) (string-ci>=? "" "z"))

2178

(assert-false (tn) (string-ci>=? "" "~"))

2179

(assert-false (tn) (string-ci>=? "" "\x7f"))

2180

(tn "string-ci>=? \"\\n\"")

2181

(assert-true (tn) (string-ci>=? "\n" ""))

2182

(assert-true (tn) (string-ci>=? "\n" "\n"))

2183

(assert-false (tn) (string-ci>=? "\n" " "))

2184

(assert-false (tn) (string-ci>=? "\n" "!"))

2185

(assert-false (tn) (string-ci>=? "\n" "0"))

2186

(assert-false (tn) (string-ci>=? "\n" "9"))

2187

(assert-false (tn) (string-ci>=? "\n" "A"))

2188

(assert-false (tn) (string-ci>=? "\n" "B"))

2189

(assert-false (tn) (string-ci>=? "\n" "Z"))

2190

(assert-false (tn) (string-ci>=? "\n" "_"))

2191

(assert-false (tn) (string-ci>=? "\n" "a"))

2192

(assert-false (tn) (string-ci>=? "\n" "b"))

2193

(assert-false (tn) (string-ci>=? "\n" "z"))

2194

(assert-false (tn) (string-ci>=? "\n" "~"))

2195

(assert-false (tn) (string-ci>=? "\n" "\x7f"))

2196

(tn "string-ci>=? \" \"")

2197

(assert-true (tn) (string-ci>=? " " ""))

2198

(assert-true (tn) (string-ci>=? " " "\n"))

2199

(assert-true (tn) (string-ci>=? " " " "))

2200

(assert-false (tn) (string-ci>=? " " "!"))

2201

(assert-false (tn) (string-ci>=? " " "0"))

2202

(assert-false (tn) (string-ci>=? " " "9"))

2203

(assert-false (tn) (string-ci>=? " " "A"))

2204

(assert-false (tn) (string-ci>=? " " "B"))

2205

(assert-false (tn) (string-ci>=? " " "Z"))

2206

(assert-false (tn) (string-ci>=? " " "_"))

2207

(assert-false (tn) (string-ci>=? " " "a"))

2208

(assert-false (tn) (string-ci>=? " " "b"))

2209

(assert-false (tn) (string-ci>=? " " "z"))

2210

(assert-false (tn) (string-ci>=? " " "~"))

2211

(assert-false (tn) (string-ci>=? " " "\x7f"))

2212

(tn "string-ci>=? \"!\"")

2213

(assert-true (tn) (string-ci>=? "!" ""))

2214

(assert-true (tn) (string-ci>=? "!" "\n"))

2215

(assert-true (tn) (string-ci>=? "!" " "))

2216

(assert-true (tn) (string-ci>=? "!" "!"))

2217

(assert-false (tn) (string-ci>=? "!" "0"))

2218

(assert-false (tn) (string-ci>=? "!" "9"))

2219

(assert-false (tn) (string-ci>=? "!" "A"))

2220

(assert-false (tn) (string-ci>=? "!" "B"))

2221

(assert-false (tn) (string-ci>=? "!" "Z"))

2222

(assert-false (tn) (string-ci>=? "!" "_"))

2223

(assert-false (tn) (string-ci>=? "!" "a"))

2224

(assert-false (tn) (string-ci>=? "!" "b"))

2225

(assert-false (tn) (string-ci>=? "!" "z"))

2226

(assert-false (tn) (string-ci>=? "!" "~"))

2227

(assert-false (tn) (string-ci>=? "!" "\x7f"))

2228

(tn "string-ci>=? \"0\"")

2229

(assert-true (tn) (string-ci>=? "0" ""))

2230

(assert-true (tn) (string-ci>=? "0" "\n"))

2231

(assert-true (tn) (string-ci>=? "0" " "))

2232

(assert-true (tn) (string-ci>=? "0" "!"))

2233

(assert-true (tn) (string-ci>=? "0" "0"))

2234

(assert-false (tn) (string-ci>=? "0" "9"))

2235

(assert-false (tn) (string-ci>=? "0" "A"))

2236

(assert-false (tn) (string-ci>=? "0" "B"))

2237

(assert-false (tn) (string-ci>=? "0" "Z"))

2238

(assert-false (tn) (string-ci>=? "0" "_"))

2239

(assert-false (tn) (string-ci>=? "0" "a"))

2240

(assert-false (tn) (string-ci>=? "0" "b"))

2241

(assert-false (tn) (string-ci>=? "0" "z"))

2242

(assert-false (tn) (string-ci>=? "0" "~"))

2243

(assert-false (tn) (string-ci>=? "0" "\x7f"))

2244

(tn "string-ci>=? \"9\"")

2245

(assert-true (tn) (string-ci>=? "9" ""))

2246

(assert-true (tn) (string-ci>=? "9" "\n"))

2247

(assert-true (tn) (string-ci>=? "9" " "))

2248

(assert-true (tn) (string-ci>=? "9" "!"))

2249

(assert-true (tn) (string-ci>=? "9" "0"))

2250

(assert-true (tn) (string-ci>=? "9" "9"))

2251

(assert-false (tn) (string-ci>=? "9" "A"))

2252

(assert-false (tn) (string-ci>=? "9" "B"))

2253

(assert-false (tn) (string-ci>=? "9" "Z"))

2254

(assert-false (tn) (string-ci>=? "9" "_"))

2255

(assert-false (tn) (string-ci>=? "9" "a"))

2256

(assert-false (tn) (string-ci>=? "9" "b"))

2257

(assert-false (tn) (string-ci>=? "9" "z"))

2258

(assert-false (tn) (string-ci>=? "9" "~"))

2259

(assert-false (tn) (string-ci>=? "9" "\x7f"))

2260

(tn "string-ci>=? \"A\"")

2261

(assert-true (tn) (string-ci>=? "A" ""))

2262

(assert-true (tn) (string-ci>=? "A" "\n"))

2263

(assert-true (tn) (string-ci>=? "A" " "))

2264

(assert-true (tn) (string-ci>=? "A" "!"))

2265

(assert-true (tn) (string-ci>=? "A" "0"))

2266

(assert-true (tn) (string-ci>=? "A" "9"))

2267

(assert-true (tn) (string-ci>=? "A" "A"))

2268

(assert-false (tn) (string-ci>=? "A" "B"))

2269

(assert-false (tn) (string-ci>=? "A" "Z"))

2270

(assert-true (tn) (string-ci>=? "A" "_"))

2271

(assert-true (tn) (string-ci>=? "A" "a"))

2272

(assert-false (tn) (string-ci>=? "A" "b"))

2273

(assert-false (tn) (string-ci>=? "A" "z"))

2274

(assert-false (tn) (string-ci>=? "A" "~"))

2275

(assert-false (tn) (string-ci>=? "A" "\x7f"))

2276

(tn "string-ci>=? \"B\"")

2277

(assert-true (tn) (string-ci>=? "B" ""))

2278

(assert-true (tn) (string-ci>=? "B" "\n"))

2279

(assert-true (tn) (string-ci>=? "B" " "))

2280

(assert-true (tn) (string-ci>=? "B" "!"))

2281

(assert-true (tn) (string-ci>=? "B" "0"))

2282

(assert-true (tn) (string-ci>=? "B" "9"))

2283

(assert-true (tn) (string-ci>=? "B" "A"))

2284

(assert-true (tn) (string-ci>=? "B" "B"))

2285

(assert-false (tn) (string-ci>=? "B" "Z"))

2286

(assert-true (tn) (string-ci>=? "B" "_"))

2287

(assert-true (tn) (string-ci>=? "B" "a"))

2288

(assert-true (tn) (string-ci>=? "B" "b"))

2289

(assert-false (tn) (string-ci>=? "B" "z"))

2290

(assert-false (tn) (string-ci>=? "B" "~"))

2291

(assert-false (tn) (string-ci>=? "B" "\x7f"))

2292

(tn "string-ci>=? \"Z\"")

2293

(assert-true (tn) (string-ci>=? "Z" ""))

2294

(assert-true (tn) (string-ci>=? "Z" "\n"))

2295

(assert-true (tn) (string-ci>=? "Z" " "))

2296

(assert-true (tn) (string-ci>=? "Z" "!"))

2297

(assert-true (tn) (string-ci>=? "Z" "0"))

2298

(assert-true (tn) (string-ci>=? "Z" "9"))

2299

(assert-true (tn) (string-ci>=? "Z" "A"))

2300

(assert-true (tn) (string-ci>=? "Z" "B"))

2301

(assert-true (tn) (string-ci>=? "Z" "Z"))

2302

(assert-true (tn) (string-ci>=? "Z" "_"))

2303

(assert-true (tn) (string-ci>=? "Z" "a"))

2304

(assert-true (tn) (string-ci>=? "Z" "b"))

2305

(assert-true (tn) (string-ci>=? "Z" "z"))

2306

(assert-false (tn) (string-ci>=? "Z" "~"))

2307

(assert-false (tn) (string-ci>=? "Z" "\x7f"))

2308

(tn "string-ci>=? \"_\"")

2309

(assert-true (tn) (string-ci>=? "_" ""))

2310

(assert-true (tn) (string-ci>=? "_" "\n"))

2311

(assert-true (tn) (string-ci>=? "_" " "))

2312

(assert-true (tn) (string-ci>=? "_" "!"))

2313

(assert-true (tn) (string-ci>=? "_" "0"))

2314

(assert-true (tn) (string-ci>=? "_" "9"))

2315

(assert-false (tn) (string-ci>=? "_" "A"))

2316

(assert-false (tn) (string-ci>=? "_" "B"))

2317

(assert-false (tn) (string-ci>=? "_" "Z"))

2318

(assert-true (tn) (string-ci>=? "_" "_"))

2319

(assert-false (tn) (string-ci>=? "_" "a"))

2320

(assert-false (tn) (string-ci>=? "_" "b"))

2321

(assert-false (tn) (string-ci>=? "_" "z"))

2322

(assert-false (tn) (string-ci>=? "_" "~"))

2323

(assert-false (tn) (string-ci>=? "_" "\x7f"))

2324

(tn "string-ci>=? \"a\"")

2325

(assert-true (tn) (string-ci>=? "a" ""))

2326

(assert-true (tn) (string-ci>=? "a" "\n"))

2327

(assert-true (tn) (string-ci>=? "a" " "))

2328

(assert-true (tn) (string-ci>=? "a" "!"))

2329

(assert-true (tn) (string-ci>=? "a" "0"))

2330

(assert-true (tn) (string-ci>=? "a" "9"))

2331

(assert-true (tn) (string-ci>=? "a" "A"))

2332

(assert-false (tn) (string-ci>=? "a" "B"))

2333

(assert-false (tn) (string-ci>=? "a" "Z"))

2334

(assert-true (tn) (string-ci>=? "a" "_"))

2335

(assert-true (tn) (string-ci>=? "a" "a"))

2336

(assert-false (tn) (string-ci>=? "a" "b"))

2337

(assert-false (tn) (string-ci>=? "a" "z"))

2338

(assert-false (tn) (string-ci>=? "a" "~"))

2339

(assert-false (tn) (string-ci>=? "a" "\x7f"))

2340

(tn "string-ci>=? \"b\"")

2341

(assert-true (tn) (string-ci>=? "b" ""))

2342

(assert-true (tn) (string-ci>=? "b" "\n"))

2343

(assert-true (tn) (string-ci>=? "b" " "))

2344

(assert-true (tn) (string-ci>=? "b" "!"))

2345

(assert-true (tn) (string-ci>=? "b" "0"))

2346

(assert-true (tn) (string-ci>=? "b" "9"))

2347

(assert-true (tn) (string-ci>=? "b" "A"))

2348

(assert-true (tn) (string-ci>=? "b" "B"))

2349

(assert-false (tn) (string-ci>=? "b" "Z"))

2350

(assert-true (tn) (string-ci>=? "b" "_"))

2351

(assert-true (tn) (string-ci>=? "b" "a"))

2352

(assert-true (tn) (string-ci>=? "b" "b"))

2353

(assert-false (tn) (string-ci>=? "b" "z"))

2354

(assert-false (tn) (string-ci>=? "b" "~"))

2355

(assert-false (tn) (string-ci>=? "b" "\x7f"))

2356

(tn "string-ci>=? \"z\"")

2357

(assert-true (tn) (string-ci>=? "z" ""))

2358

(assert-true (tn) (string-ci>=? "z" "\n"))

2359

(assert-true (tn) (string-ci>=? "z" " "))

2360

(assert-true (tn) (string-ci>=? "z" "!"))

2361

(assert-true (tn) (string-ci>=? "z" "0"))

2362

(assert-true (tn) (string-ci>=? "z" "9"))

2363

(assert-true (tn) (string-ci>=? "z" "A"))

2364

(assert-true (tn) (string-ci>=? "z" "B"))

2365

(assert-true (tn) (string-ci>=? "z" "Z"))

2366

(assert-true (tn) (string-ci>=? "z" "_"))

2367

(assert-true (tn) (string-ci>=? "z" "a"))

2368

(assert-true (tn) (string-ci>=? "z" "b"))

2369

(assert-true (tn) (string-ci>=? "z" "z"))

2370

(assert-false (tn) (string-ci>=? "z" "~"))

2371

(assert-false (tn) (string-ci>=? "z" "\x7f"))

2372

(tn "string-ci>=? \"~\"")

2373

(assert-true (tn) (string-ci>=? "~" ""))

2374

(assert-true (tn) (string-ci>=? "~" "\n"))

2375

(assert-true (tn) (string-ci>=? "~" " "))

2376

(assert-true (tn) (string-ci>=? "~" "!"))

2377

(assert-true (tn) (string-ci>=? "~" "0"))

2378

(assert-true (tn) (string-ci>=? "~" "9"))

2379

(assert-true (tn) (string-ci>=? "~" "A"))

2380

(assert-true (tn) (string-ci>=? "~" "B"))

2381

(assert-true (tn) (string-ci>=? "~" "Z"))

2382

(assert-true (tn) (string-ci>=? "~" "_"))

2383

(assert-true (tn) (string-ci>=? "~" "a"))

2384

(assert-true (tn) (string-ci>=? "~" "b"))

2385

(assert-true (tn) (string-ci>=? "~" "z"))

2386

(assert-true (tn) (string-ci>=? "~" "~"))

2387

(assert-false (tn) (string-ci>=? "~" "\x7f"))

2388

(tn "string-ci>=? \"\\x7f\"")

2389

(assert-true (tn) (string-ci>=? "\x7f" ""))

2390

(assert-true (tn) (string-ci>=? "\x7f" "\n"))

2391

(assert-true (tn) (string-ci>=? "\x7f" " "))

2392

(assert-true (tn) (string-ci>=? "\x7f" "!"))

2393

(assert-true (tn) (string-ci>=? "\x7f" "0"))

2394

(assert-true (tn) (string-ci>=? "\x7f" "9"))

2395

(assert-true (tn) (string-ci>=? "\x7f" "A"))

2396

(assert-true (tn) (string-ci>=? "\x7f" "B"))

2397

(assert-true (tn) (string-ci>=? "\x7f" "Z"))

2398

(assert-true (tn) (string-ci>=? "\x7f" "_"))

2399

(assert-true (tn) (string-ci>=? "\x7f" "a"))

2400

(assert-true (tn) (string-ci>=? "\x7f" "b"))

2401

(assert-true (tn) (string-ci>=? "\x7f" "z"))

2402

(assert-true (tn) (string-ci>=? "\x7f" "~"))

2403

(assert-true (tn) (string-ci>=? "\x7f" "\x7f"))

2404

(tn "string-ci>=? alphabets")

2405

(assert-true (tn) (string-ci>=? "aa" "aa"))

2406

(assert-true (tn) (string-ci>=? "aa" "AA"))

2407

(assert-true (tn) (string-ci>=? "aa" "aA"))

2408

(assert-true (tn) (string-ci>=? "aa" "Aa"))

2409

(assert-true (tn) (string-ci>=? "AA" "aa"))

2410

(assert-true (tn) (string-ci>=? "aA" "aa"))

2411

(assert-true (tn) (string-ci>=? "Aa" "aa"))

2412

(assert-true (tn) (string-ci>=? "abc" "abc"))

2413

(assert-true (tn) (string-ci>=? "abc" "ABC"))

2414

(assert-true (tn) (string-ci>=? "abc" "ABc"))

2415

(assert-false (tn) (string-ci>=? "abc" "abcd"))

2416

(assert-true (tn) (string-ci>=? "ABC" "abc"))

2417

(assert-true (tn) (string-ci>=? "ABc" "abc"))

2418

(assert-true (tn) (string-ci>=? "abcd" "abc"))

2419

2420

(total-report)