Testcase for shiny