SubjectCodes, Tax, TaxExemptionReasonCodes

Author: landrix

Test/DUnitXZUGFeRDTest.dpr

@@ -67,7 +67,9 @@ uses
   intf.ZUGFeRDInvoiceTypes.UnitTests,
   intf.ZUGFeRDMimeTypeMapper.UnitTests,
   intf.ZUGFeRDTaxRegistrationSchemeID.UnitTests,
-  intf.ZUGFeRDTaxTypes.UnitTests
+  intf.ZUGFeRDTaxTypes.UnitTests,
+  intf.ZUGFeRDTaxExemptionReasonCodes.UnitTests,
+  intf.ZUGFeRDSubjectCodes.UnitTests
   ;
 
   //Übersetze folgenden C#-Code nach Delphi. Wenn ein Klassenname übersetzt wird, setze ihm den Präfix TZUGFeRD vorran. Stelle alles als Codeblock dar.

Test/intf.ZUGFeRDSubjectCodes.UnitTests.pas

@@ -0,0 +1,83 @@
+{* Licensed to the Apache Software Foundation (ASF) under one
+ * or more contributor license agreements.  See the NOTICE file
+ * distributed with this work for additional information
+ * regarding copyright ownership.  The ASF licenses this file
+ * to you under the Apache License, Version 2.0 (the
+ * "License"); you may not use this file except in compliance
+ * with the License.  You may obtain a copy of the License at
+ *
+ *   http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing,
+ * software distributed under the License is distributed on an
+ * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+ * KIND, either express or implied.  See the License for the
+ * specific language governing permissions and limitations
+ * under the License.}
+
+unit intf.ZUGFeRDSubjectCodes.UnitTests;
+
+interface
+
+uses
+  DUnitX.TestFramework, intf.ZUGFeRDSubjectCodes;
+
+type
+  [TestFixture]
+  TZUGFeRDSubjectCodesTest = class
+  public
+    [Test]
+    procedure TestFromString;
+    [Test]
+    procedure TestEnumToString;
+  end;
+
+implementation
+
+procedure TZUGFeRDSubjectCodesTest.TestFromString;
+begin
+  Assert.AreEqual(TZUGFeRDSubjectCodes.AAI, TZUGFeRDSubjectCodesExtensions.FromString('AAI'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.AAJ, TZUGFeRDSubjectCodesExtensions.FromString('AAJ'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.ABN, TZUGFeRDSubjectCodesExtensions.FromString('ABN'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.AAK, TZUGFeRDSubjectCodesExtensions.FromString('AAK'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.ACB, TZUGFeRDSubjectCodesExtensions.FromString('ACB'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.PMT, TZUGFeRDSubjectCodesExtensions.FromString('PMT'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.PRF, TZUGFeRDSubjectCodesExtensions.FromString('PRF'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.REG, TZUGFeRDSubjectCodesExtensions.FromString('REG'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.SUR, TZUGFeRDSubjectCodesExtensions.FromString('SUR'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.Unknown, TZUGFeRDSubjectCodesExtensions.FromString('Unknown'));
+  Assert.AreEqual(TZUGFeRDSubjectCodes.Unknown, TZUGFeRDSubjectCodesExtensions.FromString('Invalid'));
+end;
+
+procedure TZUGFeRDSubjectCodesTest.TestEnumToString;
+begin
+  Assert.AreEqual('AAI', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.AAI));
+  Assert.AreEqual('AAJ', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.AAJ));
+  Assert.AreEqual('ABN', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.ABN));
+  Assert.AreEqual('AAK', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.AAK));
+  Assert.AreEqual('ACB', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.ACB));
+  Assert.AreEqual('PMT', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.PMT));
+  Assert.AreEqual('PRF', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.PRF));
+  Assert.AreEqual('REG', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.REG));
+  Assert.AreEqual('SUR', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.SUR));
+  Assert.AreEqual('Unknown', TZUGFeRDSubjectCodesExtensions.EnumToString(TZUGFeRDSubjectCodes.Unknown));
+end;
+
+initialization
+
+//I was hoping to use RTTI to discover the TestFixture classes, however unlike .NET
+//if we don't touch the class somehow then the linker will remove
+//the class from the resulting exe.
+//We could just do this:
+//TMyExampleTests.ClassName;
+//TExampleFixture2.ClassName;
+//which is enough to make the compiler link the classes into the exe, but that seems a
+//bit redundent so I guess we'll just use manual registration. If you use the
+//{$STRONGLINKTYPES ON} compiler directive then it will link the TestFixtures in and you
+//can use RTTI. The downside to that is the resulting exe will potentially much larger.
+//Not sure which version {$STRONGLINKTYPES ON} was introduced so we'll allow RTTI and
+//manual registration for now.
+
+//  TDUnitX.RegisterTestFixture(TZUGFeRDSubjectCodesTest);
+
+end.