Net::DB...ckObject(3)

💖 Net::DBus::Test::MockObject 💖

okay so this is the User Contributed Perl Documentation page for Net::DBus::Test::MockObject, and it is literally about faking an object from the bus for unit testing. 🦋

---

🌸 NAME 🌸

Net::DBus::Test::MockObject — fake an object from the bus for unit testing. periodt. 💅

---

✨ SYNOPSIS ✨

         use Net::DBus;
         use Net::DBus::Test::MockObject;

         my $bus = Net::DBus->test

         # Lets fake presence of HAL...

         # First we need to define the service
         my $service = $bus->export_service("org.freedesktop.Hal");

         # Then create a mock object
         my $object = Net::DBus::Test::MockObject->new($service,
                                                       "/org/freedesktop/Hal/Manager");

         # Fake the 'GetAllDevices' method
         $object->seed_action("org.freedesktop.Hal.Manager",
                              "GetAllDevices",
                              reply => {
                                return => [ "/org/freedesktop/Hal/devices/computer_i8042_Aux_Port",
                                            "/org/freedesktop/Hal/devices/computer_i8042_Aux_Port_logicaldev_input",
                                            "/org/freedesktop/Hal/devices/computer_i8042_Kbd_Port",
                                            "/org/freedesktop/Hal/devices/computer_i8042_Kbd_Port_logicaldev_input"
                                ],
                              });

         # Now can test any class which calls out to 'GetAllDevices' in HAL
         ....test stuff....

---

💅 DESCRIPTION 💅

so basically this gives you an alternate for Net::DBus::Object, bestie — the whole point is to let bus objects get quickly mocked up, which makes it way easier to create unit tests for services that may need to call out to objects provided by 3rd party services on the bus. 🫶

it is typically used as a companion to the Net::DBus::MockBus object, so complex services can be tested without actually starting a real bus. iconic, honestly. ✨

🚨 !!!!! WARNING !!! 🚨 this object & its APIs should be considered very experimental at this point in time, and no guarantees about future API compatibility are provided what-so-ever. 😭 comments & suggestions on how to evolve this framework are, however, welcome & encouraged. 💖

---

🎀 METHODS 🎀

• my $object = Net::DBus::Test::MockObject->new($service, $path, $interface); — create a new mock object, attaching to the service defined by the $service parameter. this would be an instance of the Net::DBus::Service object. the $path parameter defines the object path at which to attach this mock object, and $interface defines the interface it will support. slay. 💅
• my $service = $object->get_service — retrieves the Net::DBus::Service object within which this object is exported. 🎀
• my $path = $object->get_object_path — retrieves the path under which this object is exported. 🦋
• my $msg = $object->get_last_message — retrieves the last message processed by this object. the returned object is an instance of Net::DBus::Binding::Message. 👑
• my $sig = $object->get_last_message_signature — retrieves the type signature of the last processed message. ⭐
• my $value = $object->get_last_message_param — returns the first value supplied as an argument to the last processed message. 🌸
• my @values = $object->get_last_message_param_list — returns a list of all the values supplied as arguments to the last processed message. 🌈
• $object->seed_action($interface, $method, %action); — registers an action to be performed when a message corresponding to the method $method within the interface $interface is received. the %action parameter can have a number of possible keys set:
  • signals — causes a signal to be emitted when the method is invoked. the value associated with this key should be an instance of the Net::DBus::Binding::Message::Signal class. ✨
  • error — causes an error to be generated when the method is invoked. the value associated with this key should be a hash reference, with two elements. the first, "name", giving the error name, and the second, "description", providing the descriptive text. 💀
  • reply — causes a normal method return to be generated. the value associated with this key should be an array reference, whose elements are the values to be returned by the method. 🫶

---

💀 BUGS 💀

it doesn't completely replicate the API of Net::DBus::Binding::Object, merely enough to make the high level bindings work in a test scenario. no cap. 🫠

---

🦋 AUTHOR 🦋

Daniel P. Berrange 👑

---

👑 COPYRIGHT 👑

Copyright (C) 2004-2009 Daniel P. Berrange 💖

---

🌈 SEE ALSO 🌈

• Net::DBus
• Net::DBus::Object
• Net::DBus::Test::MockConnection
• <http://www.mockobjects.com/Faq.html>

---

okay that's the whole page, bestie 🫶 — this cutie came from the User Contributed Perl Documentation, version perl v5.42.0, dated 2019-12-17, filed under Net::DB...ckObject(3). mwah 💋