0006666: Bugs in String>>#withoutTrailingDigits

Viewing Issue Simple Details [ Jump to Notes ]

[ View Advanced ] [ Issue History ] [ Print ]

Category

Severity

Reproducibility

Date Submitted

Last Update

0006666

[Squeak] Collections

minor

always

09-09-07 13:30

09-10-07 00:25

Reporter

JTS

View Status

public

Assigned To

Priority

normal

Resolution

open

Status

new

Product Version

3.10

Summary

0006666: Bugs in String>>#withoutTrailingDigits

Description

StringTest>>#testWithoutTrailingDigits

       self assert: ' 1abc23' withoutTrailingDigits2 = ' 1abc'.
    self assert: '123 ' withoutTrailingDigits2 = ''.
    self assert: 'abc ' withoutTrailingDigits2 = 'abc'.
    self assert: '' withoutTrailingDigits = ''

This test will fail:

        self assert: ' 1abc23' withoutTrailingDigits2 = ' 1abc'.

It returns an empty string instead.

Additional Information

This will past the tests:

withoutTrailingDigits2

    "Answer the portion of the receiver that precedes any trailing series of digits and blanks. If the receiver consists entirely of digits and blanks, return an empty string"

    | firstDigit |
    firstDigit := (self findLast: [:each | each isDigit not and: [(each = Character space) not]]).
    ^ firstDigit > 0
        ifTrue:
            [self copyFrom: 1 to: firstDigit]
        ifFalse:
            ['']

Attached Files

Relationships

Notes
(0011103 - 147 - 183 - 183 - 183 - 183 - 183) wiz 09-10-07 00:25	Cool, Please submit code and tests as uploads. That will help testing and speed harvesting. Yours in curiosity and service, --Jerome Peace

Issue History
Date Modified	Username	Field	Change
09-09-07 13:30	JTS	New Issue
09-10-07 00:25	wiz	Note Added: 0011103

Mantis 1.0.8[^]

32 total queries executed.
27 unique queries executed.