From 6a7dea21842d8a1ebab4cf679c098bae5ac093e8 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sun, 26 Nov 2023 08:14:52 +0000
Subject: Following [536fea2e], remove deprecated scrollbar tests. Note: we
 have 3 tests still constrained by 'deprecated' in the codebase.

---
 tests/scrollbar.test | 28 ----------------------------
 1 file changed, 28 deletions(-)

diff --git a/tests/scrollbar.test b/tests/scrollbar.test
index edf263c..c84ce58 100644
--- a/tests/scrollbar.test
+++ b/tests/scrollbar.test
@@ -316,10 +316,6 @@ destroy .t
 test scrollbar-3.43 {ScrollbarWidgetCmd procedure, "get" option} {
     list [catch {.s get a} msg] $msg
 } {1 {wrong # args: should be ".s get"}}
-test scrollbar-3.44 {ScrollbarWidgetCmd procedure, "get" option} deprecated {
-    .s set 100 10 13 14
-    .s get
-} {100 10 13 14}
 test scrollbar-3.45 {ScrollbarWidgetCmd procedure, "get" option} {
     .s set 0.6 0.8
     set result {}
@@ -401,30 +397,6 @@ test scrollbar-3.63 {ScrollbarWidgetCmd procedure, "set" option} {
     }
     set result
 } {0.4 0.4}
-test scrollbar-3.64 {ScrollbarWidgetCmd procedure, "set" option} deprecated {
-    list [catch {.s set abc def ghi jkl} msg] $msg
-} {1 {expected integer but got "abc"}}
-test scrollbar-3.65 {ScrollbarWidgetCmd procedure, "set" option} deprecated {
-    list [catch {.s set 1 def ghi jkl} msg] $msg
-} {1 {expected integer but got "def"}}
-test scrollbar-3.66 {ScrollbarWidgetCmd procedure, "set" option} deprecated {
-    list [catch {.s set 1 2 ghi jkl} msg] $msg
-} {1 {expected integer but got "ghi"}}
-test scrollbar-3.67 {ScrollbarWidgetCmd procedure, "set" option} deprecated {
-    list [catch {.s set 1 2 3 jkl} msg] $msg
-} {1 {expected integer but got "jkl"}}
-test scrollbar-3.68 {ScrollbarWidgetCmd procedure, "set" option} deprecated {
-    .s set -10 50 20 30
-    .s get
-} {0 50 0 0}
-test scrollbar-3.69 {ScrollbarWidgetCmd procedure, "set" option} deprecated {
-    .s set 100 -10 20 30
-    .s get
-} {100 0 20 30}
-test scrollbar-3.70 {ScrollbarWidgetCmd procedure, "set" option} deprecated {
-    .s set 100 50 30 20
-    .s get
-} {100 50 30 30}
 test scrollbar-3.71 {ScrollbarWidgetCmd procedure, "set" option} {
     list [catch {.s set 1 2 3} msg] $msg
 } {1 {wrong # args: should be ".s set firstFraction lastFraction"}}
-- 
cgit v0.12