From 6c3f709174e8e4d5411f851cedb7d84c38d3b04a Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Fri, 20 Dec 2013 04:48:54 +0100
Subject: Import vests testsuite

---
 .../concatenation/concatenate-string-character.vhdl    | 18 ++++++++++++++++++
 .../concatenation/concatenate-two-strings.vhdl         | 18 ++++++++++++++++++
 2 files changed, 36 insertions(+)
 create mode 100644 testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation/concatenate-string-character.vhdl
 create mode 100644 testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation/concatenate-two-strings.vhdl

(limited to 'testsuite/vests/vhdl-93/clifton-labs/compliant/functional/operators/concatenation')

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;
-- 
cgit