update elements and fix some bugs

lib/src/prism/tests/languages/tcl/variable_feature.test

Index: lib/src/prism/tests/languages/tcl/variable_feature.test
diff --git a/lib/src/prism/tests/languages/tcl/variable_feature.test b/lib/src/prism/tests/languages/tcl/variable_feature.test
new file mode 100644
index 0000000000000000000000000000000000000000..cda7373609f1b03bd7c8f1b6c53f1d7236bd466d
--- /dev/null
+++ b/lib/src/prism/tests/languages/tcl/variable_feature.test
@@ -0,0 +1,31 @@
+$foo
+$Foobar_42
+$::foo
+$foo::bar42
+
+${foobar}
+
+set foo bar
+set Foobar_42 baz
+set ::foo bar
+set foo::bar42 baz
+
+----------------------------------------------------
+
+[
+	"$", ["variable", "foo"],
+	"\r\n$", ["variable", "Foobar_42"],
+	"\r\n$", ["variable", "::foo"],
+	"\r\n$", ["variable", "foo::bar42"],
+
+	"\r\n\r\n$", ["variable", "{foobar}"],
+
+	["keyword", "set"], ["variable", "foo"], " bar\r\n",
+	["keyword", "set"], ["variable", "Foobar_42"], " baz\r\n",
+	["keyword", "set"], ["variable", "::foo"], " bar\r\n",
+	["keyword", "set"], ["variable", "foo::bar42"], " baz"
+]
+
+----------------------------------------------------
+
+Checks for variables.