Add test for proper package state level assignment

CherkashinSergey · za-arthur · commit 56076bea1da2 · 2019-03-05T16:01:04.000+03:00
diff --git a/expected/pg_variables_trans.out b/expected/pg_variables_trans.out
@@ -1935,6 +1935,33 @@ ERROR:  syntax error at or near "ERROR"
 LINE 1: ERROR;
         ^
 COMMIT;
+BEGIN;
+SELECT pgv_set('vars', 'any1', 'some value'::text, true);
+ pgv_set 
+---------
+ 
+(1 row)
+
+SELECT pgv_free();
+ pgv_free 
+----------
+ 
+(1 row)
+
+SAVEPOINT sp_to_rollback;
+SELECT pgv_set('vars', 'any1', 'some value'::text, true);
+ pgv_set 
+---------
+ 
+(1 row)
+
+ROLLBACK TO sp_to_rollback;
+COMMIT;
+SELECT package FROM pgv_stats() ORDER BY package;
+ package 
+---------
+(0 rows)
+
 SELECT pgv_free();
  pgv_free 
 ----------
diff --git a/sql/pg_variables_trans.sql b/sql/pg_variables_trans.sql
@@ -500,4 +500,13 @@ SELECT pgv_free();
 ERROR;
 COMMIT;
 
+BEGIN;
+SELECT pgv_set('vars', 'any1', 'some value'::text, true);
+SELECT pgv_free();
+SAVEPOINT sp_to_rollback;
+SELECT pgv_set('vars', 'any1', 'some value'::text, true);
+ROLLBACK TO sp_to_rollback;
+COMMIT;
+SELECT package FROM pgv_stats() ORDER BY package;
+
 SELECT pgv_free();
