Import vests testsuite

2 files changed, 36 insertions, 0 deletions

diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation/concatenate-string-character.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation/concatenate-string-character.vhdl
new file mode 100644
index 0000000..c626d1e
--- /dev/null
+++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation/concatenate-string-character.vhdl
@@ -0,0 +1,18 @@
+entity test is
+end test;
+
+architecture only of test is
+
+begin  -- only
+
+  doit: process
+    variable concatted : string(1 to 4);
+  begin  -- process doit
+    concatted := "foo" & 'l';
+
+    assert concatted = "fool" report "TEST FAILED - concatted was not 'fool'" severity failure;
+    assert not(concatted = "fool") report "TEST PASSED" severity note;
+    
+    wait;
+  end process doit;
+end only;
diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation/concatenate-two-strings.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation/concatenate-two-strings.vhdl
new file mode 100644
index 0000000..aab8f63
--- /dev/null
+++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation/concatenate-two-strings.vhdl
@@ -0,0 +1,18 @@
+entity test is
+end test;
+
+architecture only of test is
+
+begin  -- only
+
+  doit: process
+    variable concatted : string(1 to 6);
+  begin  -- process doit
+    concatted := "foo" & "bar";
+
+    assert concatted = "foobar" report "TEST FAILED - concatted was not 'foobar'" severity failure;
+    assert not(concatted = "foobar") report "TEST PASSED" severity note;
+    
+    wait;
+  end process doit;
+end only;