Skip to content

GitLab

  • Menu
Projects Groups Snippets
    • Loading...
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
  • Sign in / Register
  • ansi-test ansi-test
  • Project information
    • Project information
    • Activity
    • Labels
    • Members
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
  • Issues 15
    • Issues 15
    • List
    • Boards
    • Service Desk
    • Milestones
  • Merge requests 2
    • Merge requests 2
  • Deployments
    • Deployments
    • Releases
  • Monitor
    • Monitor
    • Incidents
  • Analytics
    • Analytics
    • Value stream
    • Repository
  • Wiki
    • Wiki
  • Activity
  • Graph
  • Create a new issue
  • Commits
  • Issue Boards
Collapse sidebar
  • ansi-test
  • ansi-testansi-test
  • Issues
  • #20

Closed
Open
Created Nov 15, 2019 by Michał Herda@mherda🤔Contributor

CCL: Tests READTABLE-CASE.CASE-* intern symbols in the wrong packages

? (setf *default-pathname-defaults* #p"/home/phoe/Projects/ansi-test/")
#P"/home/emiherd/Projects/ansi-test/"
? (progn (load "gclload1.lsp") (load "gclload2.lsp") (in-package :rt))
;; compilation output omitted
#<Package "REGRESSION-TEST">
? (disable-note :ansi-spec-problem)
#S(NOTE :NAME :ANSI-SPEC-PROBLEM :CONTENTS "A catch-all for tests that illustrate problems in the ANSI spec." :DISABLED T)
? (setf *default-pathname-defaults* (truename #P"sandbox/"))
#P"/home/emiherd/Projects/ansi-test/sandbox/"
? (do-tests)
;; ...
Test #:READTABLE-CASE.CASE-UPCASE failed
Form: (LET ((*READTABLE* (COPY-READTABLE))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (MAPCAR #'(LAMBDA (CL-TEST::X) (READ-FROM-STRING CL-TEST::X)) '("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")))
Expected value:
          (CL-TEST::ZEBRA CL-TEST::ZEBRA CL-TEST::ZEBRA CL-TEST::ZEBR\a CL-TEST::ZEBRA CL-TEST::ZEBR\a CL-TEST::ZEBRA CL-TEST::ZEBR\a CL-TEST::ZEBRA)
Actual value:
          (ZEBRA ZEBRA ZEBRA ZEBR\a ZEBRA ZEBR\a ZEBRA ZEBR\a ZEBRA)

Test #:READTABLE-CASE.CASE-DOWNCASE failed
Form: (LET ((*READTABLE* (COPY-READTABLE))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (MAPCAR #'(LAMBDA (CL-TEST::X) (READ-FROM-STRING CL-TEST::X)) '("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")))
Expected value:
          (CL-TEST::|zebra| CL-TEST::|zebra| CL-TEST::|zebra| CL-TEST::|zebra| CL-TEST::|zebrA| CL-TEST::|zebra| CL-TEST::|zebrA| CL-TEST::|zebra| CL-TEST::|zebrA|)
Actual value:
          (|zebra| |zebra| |zebra| |zebra| |zebrA| |zebra| |zebrA| |zebra| |zebrA|)

Test #:READTABLE-CASE.CASE-PRESERVE failed
Form: (LET ((*READTABLE* (COPY-READTABLE))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (MAPCAR #'(LAMBDA (CL-TEST::X) (READ-FROM-STRING CL-TEST::X)) '("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")))
Expected value:
          (CL-TEST::|zebra| CL-TEST::|Zebra| CL-TEST::ZEBRA CL-TEST::|zebra| CL-TEST::|zebrA| CL-TEST::ZEBR\a CL-TEST::ZEBRA CL-TEST::|Zebra| CL-TEST::|ZebrA|)
Actual value:
          (|zebra| |Zebra| ZEBRA |zebra| |zebrA| ZEBR\a ZEBRA |Zebra| |ZebrA|)

Test #:READTABLE-CASE.CASE-INVERT failed
Form: (LET ((*READTABLE* (COPY-READTABLE))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (MAPCAR #'(LAMBDA (CL-TEST::X) (READ-FROM-STRING CL-TEST::X)) '("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")))
Expected value:
          (CL-TEST::ZEBRA CL-TEST::|Zebra| CL-TEST::|zebra| CL-TEST::ZEBR\a CL-TEST::ZEBRA CL-TEST::|zebra| CL-TEST::|zebrA| CL-TEST::|Zebra| CL-TEST::|ZebrA|)
Actual value:
          (ZEBRA |Zebra| |zebra| ZEBR\a ZEBRA |zebra| |zebrA| |Zebra| |ZebrA|)

A possible quick fix is to mapcar #'string the symbols after they are interned in order to discard package information and to appropriately modify the expected values.

Assignee
Assign to
Time tracking