#!/usr/bin/env python3
#
# Copyright (c) 2024 Stormux
# Copyright (c) 2010-2012 The Orca Team
# Copyright (c) 2012 Igalia, S.L.
# Copyright (c) 2005-2010 Sun Microsystems Inc.
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the
# Free Software Foundation, Inc., Franklin Street, Fifth Floor,
# Boston MA  02110-1301 USA.
#
# Fork of Orca Screen Reader (GNOME)
# Original source: https://gitlab.gnome.org/GNOME/orca

from macaroon.playback import *
import utils

sequence = MacroSequence()

sequence.append(PauseAction(3000))
sequence.append(TypeAction("man cthulhu"))
sequence.append(PauseAction(3000))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("Return"))
sequence.append(PauseAction(3000))
sequence.append(utils.AssertPresentationAction(
    "1. Return",
    ["BRAILLE LINE:  ''",
     "     VISIBLE:  '', cursor=1",
     "BRAILLE LINE:  ''",
     "     VISIBLE:  '', cursor=1",
     "BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: 'cthulhu(1)                     General Commands Manual                    cthulhu(1)",
     "",
     "NAME",
     "       cthulhu - a scriptable screen reader",
     "",
     "SYNOPSIS",
     "       cthulhu [option...]",
     "",
     "DESCRIPTION",
     "       cthulhu is a screen reader for people with visual impairments, it provides",
     "       alternative access  to  the  desktop  by  using  speech  synthesis  and",
     "       braille.",
     "",
     "       cthulhu  works  with  applications and toolkits that support the Assistive",
     "       Technology Service Provider Interface (AT-SPI), which  is  the  primary",
     "       assistive technology infrastructure for Linux and Solaris. Applications",
     "       and toolkits supporting the AT-SPI include the GNOME Gtk+ toolkit,  the",
     "       Java  platform's  Swing toolkit, LibreOffice, Gecko, and WebKitGtk. AT-",
     "       SPI support for the KDE Qt toolkit is being pursued.",
     "",
     "OPTIONS",
     "       -s, --setup",
     "              When starting cthulhu, initiate the GUI-based configuration.",
     " Manual page cthulhu(1) line 1 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("space"))
sequence.append(utils.AssertPresentationAction(
    "2. Space",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: '              When starting cthulhu, use dirname as an  alternate  directory  for",
     "              the user preferences.",
     "",
     "       -e, --enable=speech|braille|braille-monitor",
     "              When starting cthulhu, force the enabling of the supplied options.",
     "",
     "       -d, --disable=speech|braille|braille-monitor",
     "              When starting cthulhu, force the disabling of the supplied options.",
     "",
     "       -l, --list-apps",
     "              Prints  the  names  of  all  the currently running applications.",
     "              This is used primarily for debugging purposes to see if cthulhu can",
     "              talk  to the accessibility infrastructure.  Note that if cthulhu is",
     "              already running, this will not kill the other cthulhu process.   It",
     "              will  just list the currently running applications, and you will",
     "              see cthulhu listed twice: once for the existing cthulhu and  once  for",
     "              this instance.",
     "",
     "       --debug",
     "              Enables  debug  output  for cthulhu and sends all debug output to a",
     "              file with a name of the form 'debug-YYYY-MM-DD-HH:MM:SS.out'  in",
     " Manual page cthulhu(1) line 24 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("<Control>b"))
sequence.append(utils.AssertPresentationAction(
    "3. Ctrl+b",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: 'cthulhu(1)                     General Commands Manual                    cthulhu(1)",
     "",
     "NAME",
     "       cthulhu - a scriptable screen reader",
     "",
     "SYNOPSIS",
     "       cthulhu [option...]",
     "",
     "DESCRIPTION",
     "       cthulhu is a screen reader for people with visual impairments, it provides",
     "       alternative access  to  the  desktop  by  using  speech  synthesis  and",
     "       braille.",
     "",
     "       cthulhu  works  with  applications and toolkits that support the Assistive",
     "       Technology Service Provider Interface (AT-SPI), which  is  the  primary",
     "       assistive technology infrastructure for Linux and Solaris. Applications",
     "       and toolkits supporting the AT-SPI include the GNOME Gtk+ toolkit,  the",
     "       Java  platform's  Swing toolkit, LibreOffice, Gecko, and WebKitGtk. AT-",
     "       SPI support for the KDE Qt toolkit is being pursued.",
     "",
     "OPTIONS",
     "       -s, --setup",
     "              When starting cthulhu, initiate the GUI-based configuration.",
     " Manual page cthulhu(1) line 1 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("<Control>f"))
sequence.append(utils.AssertPresentationAction(
    "4. Ctrl+f",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: '              When starting cthulhu, use dirname as an  alternate  directory  for",
     "              the user preferences.",
     "",
     "       -e, --enable=speech|braille|braille-monitor",
     "              When starting cthulhu, force the enabling of the supplied options.",
     "",
     "       -d, --disable=speech|braille|braille-monitor",
     "              When starting cthulhu, force the disabling of the supplied options.",
     "",
     "       -l, --list-apps",
     "              Prints  the  names  of  all  the currently running applications.",
     "              This is used primarily for debugging purposes to see if cthulhu can",
     "              talk  to the accessibility infrastructure.  Note that if cthulhu is",
     "              already running, this will not kill the other cthulhu process.   It",
     "              will  just list the currently running applications, and you will",
     "              see cthulhu listed twice: once for the existing cthulhu and  once  for",
     "              this instance.",
     "",
     "       --debug",
     "              Enables  debug  output  for cthulhu and sends all debug output to a",
     "              file with a name of the form 'debug-YYYY-MM-DD-HH:MM:SS.out'  in",
     " Manual page cthulhu(1) line 24 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("b"))
sequence.append(utils.AssertPresentationAction(
    "5. b",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: 'cthulhu(1)                     General Commands Manual                    cthulhu(1)",
     "",
     "NAME",
     "       cthulhu - a scriptable screen reader",
     "",
     "SYNOPSIS",
     "       cthulhu [option...]",
     "",
     "DESCRIPTION",
     "       cthulhu is a screen reader for people with visual impairments, it provides",
     "       alternative access  to  the  desktop  by  using  speech  synthesis  and",
     "       braille.",
     "",
     "       cthulhu  works  with  applications and toolkits that support the Assistive",
     "       Technology Service Provider Interface (AT-SPI), which  is  the  primary",
     "       assistive technology infrastructure for Linux and Solaris. Applications",
     "       and toolkits supporting the AT-SPI include the GNOME Gtk+ toolkit,  the",
     "       Java  platform's  Swing toolkit, LibreOffice, Gecko, and WebKitGtk. AT-",
     "       SPI support for the KDE Qt toolkit is being pursued.",
     "",
     "OPTIONS",
     "       -s, --setup",
     "              When starting cthulhu, initiate the GUI-based configuration.",
     " Manual page cthulhu(1) line 1 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("f"))
sequence.append(utils.AssertPresentationAction(
    "6. f",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: '              When starting cthulhu, use dirname as an  alternate  directory  for",
     "              the user preferences.",
     "",
     "       -e, --enable=speech|braille|braille-monitor",
     "              When starting cthulhu, force the enabling of the supplied options.",
     "",
     "       -d, --disable=speech|braille|braille-monitor",
     "              When starting cthulhu, force the disabling of the supplied options.",
     "",
     "       -l, --list-apps",
     "              Prints  the  names  of  all  the currently running applications.",
     "              This is used primarily for debugging purposes to see if cthulhu can",
     "              talk  to the accessibility infrastructure.  Note that if cthulhu is",
     "              already running, this will not kill the other cthulhu process.   It",
     "              will  just list the currently running applications, and you will",
     "              see cthulhu listed twice: once for the existing cthulhu and  once  for",
     "              this instance.",
     "",
     "       --debug",
     "              Enables  debug  output  for cthulhu and sends all debug output to a",
     "              file with a name of the form 'debug-YYYY-MM-DD-HH:MM:SS.out'  in",
     " Manual page cthulhu(1) line 24 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("g"))
sequence.append(utils.AssertPresentationAction(
    "7. g",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: 'cthulhu(1)                     General Commands Manual                    cthulhu(1)",
     "",
     "NAME",
     "       cthulhu - a scriptable screen reader",
     "",
     "SYNOPSIS",
     "       cthulhu [option...]",
     "",
     "DESCRIPTION",
     "       cthulhu is a screen reader for people with visual impairments, it provides",
     "       alternative access  to  the  desktop  by  using  speech  synthesis  and",
     "       braille.",
     "",
     "       cthulhu  works  with  applications and toolkits that support the Assistive",
     "       Technology Service Provider Interface (AT-SPI), which  is  the  primary",
     "       assistive technology infrastructure for Linux and Solaris. Applications",
     "       and toolkits supporting the AT-SPI include the GNOME Gtk+ toolkit,  the",
     "       Java  platform's  Swing toolkit, LibreOffice, Gecko, and WebKitGtk. AT-",
     "       SPI support for the KDE Qt toolkit is being pursued.",
     "",
     "OPTIONS",
     "       -s, --setup",
     "              When starting cthulhu, initiate the GUI-based configuration.",
     " Manual page cthulhu(1) line 1 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("<Shift>g"))
sequence.append(utils.AssertPresentationAction(
    "8. Shift+g",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 240/262 (END) (press h for help or q to quit)'",
     "     VISIBLE:  'or q to quit\)', cursor=14",
     "SPEECH OUTPUT: '       ~/.local/share/cthulhu/cthulhu-scripts",
     "              Cthulhu user cthulhu scripts directory",
     "",
     "       ~/.local/share/cthulhu/bookmarks",
     "              Cthulhu user bookmarks directory",
     "",
     "       ~/.local/share/cthulhu/app-settings",
     "              Cthulhu user application specific settings directory",
     "",
     "AUTHOR",
     "       Cthulhu  originated as a community effort led by the Sun Microsystems Inc.",
     "       Accessibility Program Office and with contributions from many community",
     "       members.",
     "",
     "SEE ALSO",
     "       For     more     information     please     visit    cthulhu    wiki    at",
     "       <http://live.gnome.org/Cthulhu> <http://live.gnome.org/Cthulhu>",
     "",
     "       The  cthulhu  mailing  list  <http://mail.gnome.org/mailman/listinfo/cthulhu-",
     "       list>  To  post  a  message  to  all  cthulhu  list, send a email to cthulhu-",
     "       list@gnome.org",
     "",
     "GNOME                          20 September 2013                       cthulhu(1)",
     " Manual page cthulhu(1) line 240/262 (END) (press h for help or q to quit)'"]))

sequence.append(utils.AssertionSummaryAction())
sequence.start()