Test alias

/skiptest
Code:
alias -l skiptests {
  goto $1
  :1 | return a,1 0
  :2 | return a,1 1 a
  :3 | return ab,1 0 b
  :4 | return ab,1 1 a
  :5 | return abcdef,1 0 bdf
  :6 | return abcdef,1 1 ace
  :7 | return abcdef,2 0 cf
  :8 | return abcdef,2 1 abde
  :9 | return abcdef,1,2 0 be
  :10 | return abcdef,1,2 1 acdf
  :11 | return Dq6nV3Klx4GusXtadgrmL6R5ANS1u59yzfv17l9f5j1QvgW9gnsQMtYSDDJrhqoLVYwGOXOvuq2jZib33oMqqeY89wRqNZAriaB3S3Src79jggKGEzyEcuI9PKJcD0IULcqpUkFuL8aH6d9KJa7u5bZ0SA5mTz5bEfBleJBY8AYhllp4MtHRqFxkLcCpR2fadlVhhu29,2,1,4,5,3,5,3 0 6V4amN5zvfgnSroVXj3ewNA37gE9JDcuHabS5bJA4RxL2h9
  :12 | return Dq6nV3Klx4GusXtadgrmL6R5ANS1u59yzfv17l9f5j1QvgW9gnsQMtYSDDJrhqoLVYwGOXOvuq2jZib33oMqqeY89wRqNZAriaB3S3Src79jggKGEzyEcuI9PKJcD0IULcqpUkFuL8aH6d9KJa7u5bZ0SA5mTz5bEfBleJBY8AYhllp4MtHRqFxkLcCpR2fadlVhhu29,2,1,4,5,3,5,3 1 Dqn3KlxGusXtdgrL6R5AS1u9yf17l95j1QvW9gsQMtYDDJhqLYwGOOvuq2Zib3oMqqY89RqZriaBS3Src9jgKGEzycuIPKc0IULqpUkFL8a6d9KJ7u5Z0AmTz5EfBleBY8YhllpMtHqFkcCpRfadlVhu2
  :error
  reseterror
  return
}

alias skiptest {
  var %x 1
  while ($skiptests(%x)) {
    tokenize 32 $v1
    var %res = $!skip( $+ $1 $+ ) $+ $iif($2,.invert)
    if ($(%res,2) !== $3) {
      echo 04 -a [SkipTest# $+ %x] %res - Expected: $v2 - Result: $v1
      return
    }
    else {
      echo 03 -a [SkipTest# $+ %x $+ ] Passed
    }
    inc %x
  }
  echo 12 -a [SkipTest] All tests passed
  return
  :error
  echo 04 -a [SkipTest# $+ %x $+ ] mIRC error: $error
  reseterror
}

Last edited by FroggieDaFrog; 01/08/17 08:14 PM.
I am SReject
My Stuff