equal
deleted
inserted
replaced
643 test40_eolMode |
643 test40_eolMode |
644 |fn stream lineEnd contents expected eolModeOfStream check| |
644 |fn stream lineEnd contents expected eolModeOfStream check| |
645 |
645 |
646 eolModeOfStream := |
646 eolModeOfStream := |
647 [:stream | |
647 [:stream | |
648 (stream eolMode == #nl) ifTrue:[ |
648 |eolMode| |
|
649 |
|
650 eolMode := stream eolMode. |
|
651 (eolMode == #nl) ifTrue:[ |
649 lineEnd := String lf. |
652 lineEnd := String lf. |
650 ] ifFalse:[ |
653 ] ifFalse:[ |
651 (stream eolMode == #crlf) ifTrue:[ |
654 (eolMode == #crlf) ifTrue:[ |
652 lineEnd := String crlf. |
655 lineEnd := String crlf. |
653 ] ifFalse:[ |
656 ] ifFalse:[ |
654 (stream eolMode == #cr) ifTrue:[ |
657 (eolMode == #cr) ifTrue:[ |
655 lineEnd := String return. |
658 lineEnd := String return. |
656 ] ifFalse:[ |
659 ] ifFalse:[ |
657 self error |
660 (eolMode == #eot) ifTrue:[ |
|
661 lineEnd := (Character value:4) asString. |
|
662 ] ifFalse:[ |
|
663 (eolMode == #etx) ifTrue:[ |
|
664 lineEnd := (Character value:3) asString. |
|
665 ] ifFalse:[ |
|
666 self error |
|
667 ]. |
|
668 ]. |
658 ]. |
669 ]. |
659 ]. |
670 ]. |
660 ]. |
671 ]. |
661 ]. |
672 ]. |
662 |
673 |
701 |
712 |
702 check value:#lf. |
713 check value:#lf. |
703 check value:#nl. |
714 check value:#nl. |
704 check value:#crlf. |
715 check value:#crlf. |
705 check value:#cr. |
716 check value:#cr. |
|
717 check value:#eot. |
|
718 check value:#etx. |
706 |
719 |
707 " |
720 " |
708 self run:#test40_eolMode |
721 self run:#test40_eolMode |
709 self new test40_eolMode |
722 self new test40_eolMode |
710 " |
723 " |
711 |
724 |
712 "Modified: / 29-04-2016 / 14:20:12 / cg" |
725 "Modified: / 06-12-2016 / 14:25:11 / cg" |
713 ! ! |
726 ! ! |
714 |
727 |
715 !StreamTests class methodsFor:'documentation'! |
728 !StreamTests class methodsFor:'documentation'! |
716 |
729 |
717 version |
730 version |