;; тест 0: простий зсув вліво
а = 5
б = 2
результат = а << б
очікуваний_результат = 20
якщо результат != очікуваний_результат
  впасти "тест 0: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

;; тест 1: зсув на 0
а = 42
б = 0
результат = а << б
очікуваний_результат = 42
якщо результат != очікуваний_результат
  впасти "тест 1: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

;; тест 2: зсув на 1 (подвоєння)
а = 15
б = 1
результат = а << б
очікуваний_результат = 30
якщо результат != очікуваний_результат
  впасти "тест 2: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

;; тест 3: великий зсув
а = 1
б = 10
результат = а << б
очікуваний_результат = 1024
якщо результат != очікуваний_результат
  впасти "тест 3: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

;; тест 4: зсув від'ємного
а = -4
б = 2
результат = а << б
очікуваний_результат = -16
якщо результат != очікуваний_результат
  впасти "тест 4: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець