Add test for gettabvar() and settabvar().
diff --git a/src/memline.c b/src/memline.c
index b38a46d..6f0143c 100644
--- a/src/memline.c
+++ b/src/memline.c
@@ -87,7 +87,7 @@
struct pointer_block
{
short_u pb_id; /* ID for pointer block: PTR_ID */
- short_u pb_count; /* number of pointer in this block */
+ short_u pb_count; /* number of pointers in this block */
short_u pb_count_max; /* maximum value for pb_count */
PTR_EN pb_pointer[1]; /* list of pointers to blocks (actually longer)
* followed by empty space until end of page */
@@ -3270,7 +3270,8 @@
pp = (PTR_BL *)(hp->bh_data);
pp->pb_id = PTR_ID;
pp->pb_count = 0;
- pp->pb_count_max = (short_u)((mfp->mf_page_size - sizeof(PTR_BL)) / sizeof(PTR_EN) + 1);
+ pp->pb_count_max = (short_u)((mfp->mf_page_size - sizeof(PTR_BL))
+ / sizeof(PTR_EN) + 1);
return hp;
}
diff --git a/src/misc2.c b/src/misc2.c
index f35019d..88b12aa 100644
--- a/src/misc2.c
+++ b/src/misc2.c
@@ -3749,7 +3749,7 @@
int c; /* byte of plain text */
{
if (use_crypt_method > 0)
- bf_ofb_update( (unsigned char) c);
+ bf_ofb_update(c);
else
{
keys[0] = CRC32(keys[0], c);
diff --git a/src/testdir/test62.in b/src/testdir/test62.in
index 83def27..b813830 100644
--- a/src/testdir/test62.in
+++ b/src/testdir/test62.in
@@ -26,6 +26,29 @@
:call append(line('$'), line2)
:unlet line1 line2
:"
+:" Test for settabvar() and gettabvar() functions. Open a new tab page and
+:" set 3 variables to a number, string and a list. Verify that the variables
+:" are correctly set.
+:tabnew
+:tabfirst
+:call settabvar(2, 'val_num', 100)
+:call settabvar(2, 'val_str', 'SetTabVar test')
+:call settabvar(2, 'val_list', ['red', 'blue', 'green'])
+:"
+:let test_status = 'gettabvar: fail'
+:if gettabvar(2, 'val_num') == 100 && gettabvar(2, 'val_str') == 'SetTabVar test') && gettabvar(2, 'val_list') == ['red', 'blue', 'green'])
+: let test_status = 'gettabvar: pass'
+:endif
+:call append(line('$'), test_status)
+:"
+:tabnext 2
+:let test_status = 'settabvar: fail'
+:if t:val_num == 100 && t:val_str == 'SetTabVar test' && t:val_list == ['red', 'blue', 'green']
+: let test_status = 'settabvar: pass'
+:endif
+:tabclose
+:call append(line('$'), test_status)
+:"
:"
:/^Results/,$w! test.out
:qa!
diff --git a/src/testdir/test62.ok b/src/testdir/test62.ok
index 57438ed..9a51e44 100644
--- a/src/testdir/test62.ok
+++ b/src/testdir/test62.ok
@@ -3,3 +3,5 @@
this is tab page 3
this is tab page 1
this is tab page 4
+gettabvar: pass
+settabvar: pass