« Return to Thread: found interesting bug

found interesting bug

by kobolds :: Rate this Message:

Reply to Author | View in Thread

 I found very interesting bug . here how to emulate it (took me a while to trace it)

1 . create 2 module

module Mtest1

public function test() as boolean

  error.raise("this is error 1")

  return true
catch
  Mtest2.test2(error.text)
  return false
end

'__________________________________
module Mtest2

public function test2(arg_msg as string)
   message.error(arg_msg)
end


when you run you will notice message.error show nothing . the message ""this is error 1" lose .
solution 1

module Mtest1

public function test() as boolean
  dim m_err as string
  error.raise("this is error 1")

  return true
catch
  m_err = error.text
  Mtest2.test2(m_err)
  return false
end

'__________________________________
module Mtest2

public function test2(arg_msg as string)
   message.error(arg_msg)
end


solution 2

module Mtest1

public function test() as boolean
  dim m_err as string
  error.raise("this is error 1")

  return true
catch
  m_err = error.text
  Mtest2.test2(m_err)
  return false
end

public function test2(arg_msg as string)
   message.error(arg_msg)
end






is this a bug or not ?

 « Return to Thread: found interesting bug