pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix valid sheetname test case.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4677 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-03 21:43:46 +00:00
parent 28e2ae0453
commit 51630a3d94
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/tests/internaltests.pas
View File

@ -128,7 +128,7 @@ type
var var
TempFile: String; TempFile: String;
const const
TestCases: array[0..11] of TSheetNameCheck = ( TestCases: array[0..10] of TSheetNameCheck = (
(Valid: true; SheetName:'Sheet'), (Valid: true; SheetName:'Sheet'),
(Valid: true; SheetName:'äöü'), // UFt8-characters are ok (Valid: true; SheetName:'äöü'), // UFt8-characters are ok
(Valid: true; SheetName:'<sheet>'), // forbidden xml characters (Valid: true; SheetName:'<sheet>'), // forbidden xml characters
@ -136,8 +136,7 @@ const
(Valid: false; SheetName:'Test'), // duplicate (Valid: false; SheetName:'Test'), // duplicate
(Valid: false; SheetName:'TEST'), // duplicate since case is ignored (Valid: false; SheetName:'TEST'), // duplicate since case is ignored
(Valid: false; SheetName:''), // empty string (Valid: false; SheetName:''), // empty string
(Valid: false; SheetName:'Very very very very very very very very long'), // too long (Valid: false; SheetName:'[sheet]'), // forbidden characters in following cases
(Valid: false; SheetName:'[sheet]'), // forbidden characters in following cases
(Valid: false; SheetName:'/sheet/'), (Valid: false; SheetName:'/sheet/'),
(Valid: false; SheetName:'\sheet\'), (Valid: false; SheetName:'\sheet\'),
(Valid: false; SheetName:'***sheet***') (Valid: false; SheetName:'***sheet***')