Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • tests/issues.lisp
    ... ... @@ -830,7 +830,12 @@
    830 830
         (assert-true (stream::find-external-format :euckr))
    
    831 831
         (assert-true (stream::find-external-format :cp949))))
    
    832 832
     
    
    833
    -
    
    833
    +(define-test issue.154
    
    834
    +    (:tag :issues)
    
    835
    +  (let ((locale "en_US.UTF-8@piglatin")
    
    836
    +	(piglatin_text "Ethay izesay ofway away eamstray inway-ufferbay."))
    
    837
    +    (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin"))
    
    838
    +    (assert-equal piglatin_text (intl:dgettext "cmucl" "The size of a stream in-buffer."))))
    
    834 839
     
    
    835 840
     (define-test issue.158
    
    836 841
         (:tag :issues)