| 1 | Unit ACLLanguageUnitTests;
|
|---|
| 2 |
|
|---|
| 3 | // NewView - a new OS/2 Help Viewer
|
|---|
| 4 | // Copyright 2006-2007 Ronald Brill (rbri at rbri dot de)
|
|---|
| 5 | // This software is released under the GNU Public License - see readme.txt
|
|---|
| 6 |
|
|---|
| 7 | // UnitTests for ACLLanguageUnitTests
|
|---|
| 8 |
|
|---|
| 9 | Interface
|
|---|
| 10 |
|
|---|
| 11 | uses
|
|---|
| 12 | Classes,
|
|---|
| 13 | TestAssert,
|
|---|
| 14 | ACLLanguageUnit;
|
|---|
| 15 |
|
|---|
| 16 | FUNCTION getACLLanguageUnitTests : TList;
|
|---|
| 17 |
|
|---|
| 18 |
|
|---|
| 19 | Implementation
|
|---|
| 20 |
|
|---|
| 21 | PROCEDURE testTLanguageItemList_ConstructorDestructor;
|
|---|
| 22 | VAR
|
|---|
| 23 | tmpItems : TLanguageItemList;
|
|---|
| 24 | BEGIN
|
|---|
| 25 | tmpItems := TLanguageItemList.Create;
|
|---|
| 26 | tmpItems.Destroy;
|
|---|
| 27 | END;
|
|---|
| 28 |
|
|---|
| 29 |
|
|---|
| 30 | PROCEDURE testTLanguageItemList_Empty_NotFound;
|
|---|
| 31 | VAR
|
|---|
| 32 | tmpItems : TLanguageItemList;
|
|---|
| 33 | tmpFound : String;
|
|---|
| 34 | BEGIN
|
|---|
| 35 | tmpItems := TLanguageItemList.Create;
|
|---|
| 36 |
|
|---|
| 37 | tmpFound := tmpItems.getValue('label1', 'default');
|
|---|
| 38 | assertEqualsString('testTLanguageItemList_Empty_NotFound', '', tmpFound);
|
|---|
| 39 |
|
|---|
| 40 | tmpFound := tmpItems.getValue('label1', 'default');
|
|---|
| 41 | assertEqualsString('testTLanguageItemList_Empty_NotFound (2)', '', tmpFound);
|
|---|
| 42 |
|
|---|
| 43 | tmpItems.Destroy;
|
|---|
| 44 | END;
|
|---|
| 45 |
|
|---|
| 46 |
|
|---|
| 47 | PROCEDURE testTLanguageItemList_OneValue_NotFound;
|
|---|
| 48 | VAR
|
|---|
| 49 | tmpItems : TLanguageItemList;
|
|---|
| 50 | tmpFound : String;
|
|---|
| 51 | BEGIN
|
|---|
| 52 | tmpItems := TLanguageItemList.Create;
|
|---|
| 53 |
|
|---|
| 54 | tmpItems.setValue('label1', 'value1');
|
|---|
| 55 |
|
|---|
| 56 | tmpFound := tmpItems.getValue('unknown', 'default');
|
|---|
| 57 | assertEqualsString('testTLanguageItemList_OneValue_NotFound', '', tmpFound);
|
|---|
| 58 |
|
|---|
| 59 | tmpFound := tmpItems.getValue('unknown', 'default');
|
|---|
| 60 | assertEqualsString('testTLanguageItemList_OneValue_NotFound (2)', '', tmpFound);
|
|---|
| 61 |
|
|---|
| 62 | tmpItems.Destroy;
|
|---|
| 63 | END;
|
|---|
| 64 |
|
|---|
| 65 |
|
|---|
| 66 | PROCEDURE testTLanguageItemList_OneValue;
|
|---|
| 67 | VAR
|
|---|
| 68 | tmpItems : TLanguageItemList;
|
|---|
| 69 | tmpFound : String;
|
|---|
| 70 | BEGIN
|
|---|
| 71 | tmpItems := TLanguageItemList.Create;
|
|---|
| 72 |
|
|---|
| 73 | tmpItems.setValue('label1', 'value1');
|
|---|
| 74 |
|
|---|
| 75 | tmpFound := tmpItems.getValue('label1', 'default');
|
|---|
| 76 | assertEqualsString('testTLanguageItemList_OneValue label1', 'value1', tmpFound);
|
|---|
| 77 |
|
|---|
| 78 | tmpFound := tmpItems.getValue('LABEL1', 'default');
|
|---|
| 79 | assertEqualsString('testTLanguageItemList_OneValue LABEL1', 'value1', tmpFound);
|
|---|
| 80 |
|
|---|
| 81 | tmpFound := tmpItems.getValue('LaBel1', 'default');
|
|---|
| 82 | assertEqualsString('testTLanguageItemList_OneValue LaBel1', 'value1', tmpFound);
|
|---|
| 83 |
|
|---|
| 84 | tmpItems.Destroy;
|
|---|
| 85 | END;
|
|---|
| 86 |
|
|---|
| 87 |
|
|---|
| 88 | PROCEDURE testTLanguageItemList_ManyValues;
|
|---|
| 89 | VAR
|
|---|
| 90 | tmpItems : TLanguageItemList;
|
|---|
| 91 | tmpFound : String;
|
|---|
| 92 | BEGIN
|
|---|
| 93 | tmpItems := TLanguageItemList.Create;
|
|---|
| 94 | {
|
|---|
| 95 | tmpItems.setValue('label1', 'value1');
|
|---|
| 96 | tmpItems.setValue('Label2', 'vaLue2');
|
|---|
| 97 |
|
|---|
| 98 | tmpFound := tmpItems.getValue('label1', 'default');
|
|---|
| 99 | assertEqualsString('testTLanguageItemList_ManyValues label1', 'value1', tmpFound);
|
|---|
| 100 |
|
|---|
| 101 | tmpFound := tmpItems.getValue('LABEL1', 'default');
|
|---|
| 102 | assertEqualsString('testTLanguageItemList_ManyValues LABEL1', 'value1', tmpFound);
|
|---|
| 103 |
|
|---|
| 104 | tmpFound := tmpItems.getValue('LaBel1', 'default');
|
|---|
| 105 | assertEqualsString('testTLanguageItemList_ManyValues LaBel1', 'value1', tmpFound);
|
|---|
| 106 |
|
|---|
| 107 | tmpFound := tmpItems.getValue('label2', 'default');
|
|---|
| 108 | assertEqualsString('testTLanguageItemList_ManyValues label2', 'vaLue2', tmpFound);
|
|---|
| 109 |
|
|---|
| 110 | tmpFound := tmpItems.getValue('LABEL2', 'default');
|
|---|
| 111 | assertEqualsString('testTLanguageItemList_ManyValues LABEL2', 'vaLue2', tmpFound);
|
|---|
| 112 |
|
|---|
| 113 | tmpFound := tmpItems.getValue('LaBel2', 'default');
|
|---|
| 114 | assertEqualsString('testTLanguageItemList_ManyValues LaBel2', 'vaLue2', tmpFound);
|
|---|
| 115 | }
|
|---|
| 116 | tmpFound := tmpItems.getValue('unknown', 'default');
|
|---|
| 117 | assertEqualsString('testTLanguageItemList_ManyValues unknown', '', tmpFound);
|
|---|
| 118 |
|
|---|
| 119 | tmpFound := tmpItems.getValue('unknown', 'default');
|
|---|
| 120 | assertEqualsString('testTLanguageItemList_ManyValues unknown (2)', '', tmpFound);
|
|---|
| 121 |
|
|---|
| 122 | tmpItems.Destroy;
|
|---|
| 123 | END;
|
|---|
| 124 |
|
|---|
| 125 |
|
|---|
| 126 | // ----------------------------------------------------------
|
|---|
| 127 |
|
|---|
| 128 |
|
|---|
| 129 | FUNCTION getACLLanguageUnitTests : TList;
|
|---|
| 130 | BEGIN
|
|---|
| 131 | result := TList.Create;
|
|---|
| 132 |
|
|---|
| 133 | result.add(@testTLanguageItemList_ConstructorDestructor);
|
|---|
| 134 | result.add(@testTLanguageItemList_Empty_NotFound);
|
|---|
| 135 | result.add(@testTLanguageItemList_OneValue_NotFound);
|
|---|
| 136 | result.add(@testTLanguageItemList_OneValue);
|
|---|
| 137 | result.add(@testTLanguageItemList_ManyValues);
|
|---|
| 138 | END;
|
|---|
| 139 |
|
|---|
| 140 | END.
|
|---|
